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disroninle dans Plusieurs sites OoL.R.C.m5.M. y Deal, Selretriere 
ol, Les erreurs w ont ete corriseos et de nouvelles sossinilitses w 
ont ete incluses en rarticulier i 
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- les macros ۱ 

- les tanlesux 

- Une configuration initiales 


Ue Plus un logiciel de base euilssenb  evtenb aue varie s ete ecrit: 
dans leauel se trouvent i 
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— des aides s la mise su moint 

- aj 355embdleuur Lob 
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Jerome naig bog 

Universite gde PARIS 8 

Route de ls fourel le 

7095912 Faris. 

teli 374 12 50 poste 2999, 

Vous cles les تب "جاجح‎ aas 
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Orésnisation 


SECTION 1 


ORGANISATION 


maintenant cans 1 
ost de 
Wotè. 

au re 


(2.43 55 


trouves 
taille 


L'oimbtersrate se 
la memoire: Dë 
rartageabla et Rues 
multiples ¢? elle rermet 
l'interrrete en memoire dans le de * L ids 
d'accelerer les sugreims du swusteme Gui» duc li 


ne touchers fas a l'intersrete lui-meme. 
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اڑا“‎ 
Oe n 
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wa, i sa eg, xe N ... 
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ULISF-10.% 
suffit maintenant 
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d'emettre 


L'interrrete se 

l'utiliser il 

R ML . ۳ 

avant de commencer 
| d'entree-sortioes» le 
fichier peut ne fas 
cas les  ortiorns 
fichier peut contenir 
ou des definitions de fonctions rreslsbhles 
encore urne definition de travaux جا نات مرج‎ ٠ 
Une fois ce fichier charge (Ou monde 
converssestionnel 3 il lit une S-exrression 
d'entrees l'evalue et immsrime le resultat 
fichier standard de sortie. Si le hit Ô du 
Gui est l'ostion rar defaut): le bemes oui 
egalement imerimes La freauence de l'norloue 
Hz» les  durees do Ô oct de 20 
significatives. Tout ceci reut mien evicdemmert 
des fonctions TOPLEVEL et CONFIGURATION, 


la 


lo dialogue sur les 
fichier initial CONF TG. 
exister dans ls martition de 
stonderds decriles ci 
une reconfiguration des 
Lin 
es 


a 
E n 
SLT 
cot 
R.G 


Oo 
e 


pou 
E 


G 


+2 Le Gecourase do la 


fixes tort les 
e dé Gm 1 + Ï i p 


را حا تا ئن جن با daris Ï‏ 


est divisee 
a l'imitisli 
(LOWSEG) 


La memoire 
chansdees 
segment nas 


ern cones 
sabion 
eb une 


DAMES 
"uu 


OL 


ZUI G 


sesmant nas i 
contient le 
Souvetases 

La taille 

Fonctions 


A Zone O Ou 
cette zone 
zones de 

à fTlottsntes. 


du nombre de 


ra SR 1 


avail de 17 
TRES 


eniro 


memoires de t 
diverses ess) aingi 
de cette zone varie 


بح جن وط flottantes‏ 


E 


GS. 
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SONG 
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l'üinterrreble 


to 


du re 
لا‎ 

milli-secondes 

ab re 


Ürssnisstion i 


(HIGHSEG) de 
ll esb devenu 
0 7 sont 

GLU" Line comico de 
utilisateurs et 


du rossinmler 


naut 


It SLIT 


l'intersrreble 


COTE + Fout‏ بت یج 


standards 
Ce 


fichiers 
بات‎ o charus. 
l'utilissteurs en ce 

serork mriscs, Ce 
de L'intererete 
avail donne ou bien 
atenn" 

Force ti 102 
Le ichier standard 
evealustion sur le 

de ٣ (ce 
l'evalustion est 
PDP10 etant de SQ 
nie sont san 


mO LTG su Moser 


en mode 


+ Et 


memo L re 


etre 
Le 


Peuwvaernt 
zones dens 


CHIGHSEGJ » 


tail les 
a od 


haut 


Cou T Fers s 
Fonctions 
fonction 


intererete 
certaines 
let 2 hk en 


1.42 Orgarnisation Le Gjecourase de la memoire 


Zone 1 du sesment Las i 


8 


c'est dans cette zone aue sont stoukes les stomes litberaux s raison 
de ó mots far atomes, La taille standard de cetle zone rermet 
contenir 500 atomes, Il existe environ 250 atomes rredefinis dans 
systeme (les constantes et les fonctions sitandergds)» مر وع رات‎ 


utilisateur reub donc disroser d'environ 250 atomes littersux 
ses hesoins Propre, 


> 


Zone 2 du sesment has ; 


‘est dans cette zone aue sont stockes les nomaonres. T exigi 


categories de nomores. s) les nombres entiers oul Pnmossecdernt 


resresentation uniaue et sont stockes sur un seul mot (d'une maniere 


standard tous les nombres comeris entre -543 oet +127 sont de ce 


b) Les nombres entiers aui reuvent svoir  miusieurs PM رر کا ما‎ 
simultanees et aui sont stockes sur 2 mots. Œœ) Les nombres flottants 


Gui reuvent avoir egalement mlusisceurs remresentstions 


2 


LAL baree: 


Qui sont stockes sur 2 mots. La taille standard de c: BS zone permet 


de stocker Jusau’s 1090 nombres de n/imsortoe auel a a 


Zone 3 du sesment nas 3 


Cette zone contient les rointeurs de chaines, Chacun de cos m 
utilise 1 mot memoire, La taille standard de cobbe zone rerment 
stocker Jusa’ a 100 mointeurs de cneines. 


Zone 4 du sesment nass i 

Cette zone contient les dounlets de liste stockes s raison  d': 
rer doublet. La taille standard de cette zone permet de stocker 
doublets de liste: 

Zone 5 du segment nas i 

Cette zone contient la mile de l^intersrete et s une taille starda rid 
de 1200 mots, 

Zone ó du sement nass i 

c'est dane cette zone qu'est stockee la pile utilissteur 
tableaux. Uni element de File ou un element de tasnlesu occume 
memoire. La taille standard de cette zone est de 500 mots. 

Zone 7 du sesment Ras 3 

c'est dans cette gone QU asl charge le code resultant cu LAF 
comeilateur. Sa taiile standard est do 200 mote. 


+ 


Zone du segment haut 1 


OC iteu iri 


Cette 207 rarteseshlae Br  FIiUSieurs ا جانا‎ EE ناس‎ v contient 


À l'interrrete lui-meme. Sa baille sctuello se situe antra تا‎ et. ó 
n'est bien evidement ras comsressinle,. 
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E 


1.3 Oürzsanisstion ` Le Garnsse-Collectin:s 4 


1.3 Le Garbosue-Collectirs 


Chacune de ces zones est sllouese d'une maniere smecifiaues  Lorsaue 
l'une de ces zones vient s seturetion» une machinerie connue sous le 
nom de *'Gerbsse-Collectins" (s+? est inveoaues» pour  recurerer la 
Flaca rerdue. Chague zone possede un disrositif de  recurerstiorn aui 
lui est erosrre. Si cet essai #“avere infrucbueux (une zone restant 
saturee) un message d'erreur est  immrimo. Co tre d'erreur est 
fatal ; il y a donc retour immecdist su bop] level; Il faut recommencer 
le travail en sugmentant la baille de la zone INDQTLMINGE. 

Si vous imnterromsezx l’'interrrete fen Laranb un TO) durent un وب با تا‎ le 
message suivant arrarait i 

^ Gel, ° ture CONT lease. 

vous devez enetitre lis commande CONT “sout terminer lie Gels Fuis 
reinterromere l'interrretes. Si vous relsncez  l'intersrete (ear la 
commande BREE) aui m'as res Lermine un GO.» vous le mslscez Gang ا‎ 
etat de confusion emouwvsrtanle: 


Messages relstifs su remrlissase d'une zone memoire, 
KR no room for stoms. rens lisse de la zone atome, 
# no room Tor ramer ə remelissese de la zone nombre. 
XXX no room for ztrirndus. romelisesse de ls zone chaire. 
4X no room for lists. remmlisssso de la zone liste. 
ZS no room for arrate remelisssse de la zone tasnlesu.: 
XX no room for code, remrlisssse de la zone code, 


Ii est nossinle d'avoir des statistiques a CE ت١ج‎ 
تحت‎ EM achira" en sossitionnsnt le mit 9*3 du y Ge (lus 


L 


"recisement en cveslusnil 1s forme (STATUS 1 G) à 2 ETES CRAL 


"Garbhase-Colleectinsg", le texte suivant sera immrime ê 
KERE G.C. No $ MM 
D.C. Court i Mä 
ALTERE CELLS $ OMM 
Lists size 3% MMMMO marked $ Mmm Treed f xxx 
۳نا 3ا‎ 1۳ Size f smeg manrked f susi Treed f MMMM 
Numiers SIZE i xx. marked $ wun Preed À پرپرپریر‎ 
- Atoms SIZE $ xMMMO marked $ wand freed l MM 
Code SIZE Ion marked $ xxx Treed l! xxx 
Elarsed Lime $oxxxxO millivsec 


Average Lime in G.C. $ xx A 
Ces statistiques rermelttent de conneitre à 
+ le numero du ssrosse-collectins le nombre de G.C., effectues gderuis 
le lancement de VLISP?, 
- le comete sctuel de GC, (utilise rer ls fonction {STATUS 235 ) 
- le nombre de gdounlets de listes irrecurershles, Si ce nombre m'est 
egal a Òs les G.. suivant ne seront sss Ssrentis sse Lll vaut 
leux recharger un nouvel intersrete ess 
- le nombre total d'/stomess utilises et libres, 
- le nombre total de nombres» utilises et libres. 
- le nombre total de chaines,  ubilisees et libres, 


x 
IE 
ui 
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Organisation 


l'occumrstion de la conde 


ka ZONE 
- le temps eua dure ce G.C. 
- le pourcentage de bemes mosse uniquement dans 


au temes d'utilisation total de l'interrrete, 
LR CAs’ de VLISF-10»: uri 
comerenart le nomiore de G.C.» le nombre cde 
nombre d'/stomes libres et le  msourcentsue de 
G.C.» est swstenmatiavement sffiche sur la eme 


fonctionnent en UM mode. 


Dans la version 
H 
is 
“W 


1.4 Oe 


Les Chensements 

3, e. ۰ ad po " 
changer 
execute 


yi 


de trsvsil» de 
CONFIGURATION 

doit etre 
CONF IG.INI. 


iles en cent 
standards. a Fonction 
fonctions si elle est utilisee» 
forme evaluer sur le fichier 


ll est FOSSIL 
5 


EN 


S M FE 
T 


- 


ce 


(CONFIGURATION init in out atoms nes strass lists 
LSUERN a 19 argumentai 
cette Fonction possede 10 srusumernts cui sont 
—- init 3$ srecificstion du nouvesu fichier i 
- in i osrecificstion du fichier slandars 
- الا‎ +$ Ssecification du fichier standard 
- atoms $ nombre total d'/stomes. 
“ PMS + ramare total de nombres, 
- satra#s t nombre botal de chaines, 
— lists 1 momire total de dounlcots. 
- &lsck à baille de la File de l'intersrete, 
— arras 3% taille de la zone des tsmplesux. 
- code 3 taille de la zone de stocksse du 
Ces argumentas doivent etre donnes «deans L'ordre 
SE oblisstoire et ne doit res etre “(SE (CONFIG 
de faire boucler lL'intersrete durant le rrelude, 
modifier la taille d'une zone, l'argument a 
n'est ras possible d allouer la memoire demendess 
est imrrime 2 
XK not enousnmn Core, 
et la confisurstion n'est ras modifige, 
exemmles d'utilisation de la fonction de configura 
» definition de la configuration standerd 3 
A $ cette configuration occure i 


oua 


1 


7k 


7 LOWSEG 
k. 


HIGSEG 


Gi 


2 en 


soit 22 E au total ë 
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“Kol lett irs 
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emes utilise par, 
no line" des entans 


configuration 


LS 
co 


bailie 
d Tay 


(2 TL 


cau G 


ail. Cette 
derriere 


stack, a code) 


* 
+ 


dens l'ordre 
nitisl 
d'ontreo, 


de sortie. 


cocdae,. 


ler snrsument 
SOUS meine 
desire man 
MIL, il 
it 


17۳[ لات 


Le 
INI) 
OI Mo 
2 5 


fac 1. 6 3 23 2 


+ 
+ 


ud 


lo 


PLO 


144 


Les 


Orsganisabiorn 


(CONFIGURATION 


$ definition 
$ cette 


soit 


(ISK CULISF 
جو‎ 
(TTY) 

300 

1000 

100 

8000 

1200 

500 

200 


+ INT)) 


چیہ wt Nò wn Gè‏ ری ët‏ وجہ 


Se 


el 


d'une 


FR bt J be 
configuration : 


QOCLITG + 


10 k en LOWSEG 
Dk en HIGSEG 
15 k su total pi 


(CONFIGURATION 


"LUSK CULISF + INIOO H 
"DSK (LISE à WLI?) ÿ 
"L DSK (LISE + LST)) ÿ 


kota 


400 
300 


Se 


50 D 
4000 $ 
1000 ÿ 
0 $ ï 
Q $ F 
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fichier 
fichier 
fichier 
atomes 
MON r و 5ئ‎ 
cnaeirnes y 
listos $ 
File s 
taklesux 3 
code $ 


configuration 


ficnier 
fichier 
ficnier 
150 atomes 
300 
50 chaines 0 
4000 
mile 
was de 


ras de 


cnansaements 


initial 


Oe 


systeme از‎ 


A 


L aa HE s ^ 
He ton $ 


initial 
Gi SQUE 
cisaue 


nombres y 


oui Le L s 
de 


code » 


Oe 


^ 


4 


d'entree 
sortie 
littersaux 


^ 
d^ 


Oe 


de 
l'intersrete ? 


tanlen 


D 
¥ 


confisurstion 


a 
y 
^ 
H 
a 
N 


enivres p 
wg P des Ae A 
sortie j 


utilisateur $ 


^ 


liste 7 


L. 
D», 


L^interrrete 


SECTION 


L'interrrete 


2 


ou 


l. INTERPRETE 


ameliorstions 
modifications: 
compatible avec 


En plus di 
nombre de 
absolument 


Ces 
ULISP- 


^ 
An $ d. 


l'interrrete 
les rerderrt 


Ce 
QUI 


Les fonctions 
amelioretions 
ramides, 
Un mode de lancement rapide rour 
est utilise» si ces fonctions 
Il est rossinle d'utiliser bam 
EVAL aue four AFFLY. Ls valeur 
le nieme element de ls liste 
Ñ nombre aui tient lieu de 
imelicite de la fonction CNTH 
S ex $ (3 "Ce 
{ALEL 
CAFFLY 


E 
3) 


73 
Nou 


C n E») 
“(A P 
“(A P 


Li 
n 


C 
C E) Ee 
C 

des fonctions 
Lenbe 


L'^interrretstion 
maniere tres effic 


Gl 


(FOD X22) 


(0 


ax 3 CHE FOU (X) L UU 


notsbles v 
mogi f 


EVA. 


EU 
kae 9 


ont 
ee 
retournée = 
اج ت‎ ت٣‎ 
fonctions kh.” 
FOUT 


E231) ed 


ت٥3ا‎ 5 


sinit 
rendent 


ur: certein 
toutefois 


= re L تا‎ 
ications 
1 + 


lL’ 1۳۶+ a 
le 


10 


version 


T 


APPLY 


Y‏ تام 
fois‏ 


FON TLI 


mlus‏ بات 


SIN Ce 


RU 0ل‎ 7 


ant 
Elus 


AL ct 
3 la 


de ture SURE FP GLUBR 

redefinics. 

aue fonction tant 
Lure de fonction est 

le nombre m atant le 
BBE donc Mn arrol 


ce ture de fonction: 


fencetions 
Jamain ete 
en tant 
at Co 
argumen F 

intererete 
Gvalucen 


les au 


POLIT 


ce 


Ti 
B 


ask 
LO Pr eurs s aus 


effectue di 
1974614. 


tsil-recursives 


omma bior “ile 


Lir 
cé 


1) 


boucle a l'e ۶ 5 mals Sans یت‎ deborder lo mile. 


He meme aue cet arrel de 


( CLAMELIA (X 


I 
Les 
en 
son 
AN 


X2) 


^ 


ae 


n 
L'intersrete reconnait 
macro est un abone الات‎ 
sous l'indicateur MACRO, A 17 

| une macros EVAL evaluers di 
avec toute la forme comme 
retournee de Cette mremiere 

A fait donc en deux tems. 
C'est l'arrol de la macro 
est donc rossinle de 


LT 
FOS SONE 


modifier 
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der‏ تا 


“(LAMEDA (X) 


Les 


POLI SL 
BUT 
AVR LISI ON 
abord 

a resumen y 
evaluations L^ 


tout entier 
ES L Ge miri L 


mauvais ansanb $i 
(X A239 


MACROS 


Lure de Tonctionzs les MACROS, Une 
FP-liste une lampda- peggior 
d'une forme dont le CAR est 
la fonction sssociee s cette macro 
۱ rG-ovsaluers la valeur 


lustion d'une mscro se 


QM 


an 


eva 


arsuments il 
Premiere 


Gui Gu 


۶2 Pu 7٦ 
cat garrel a La 


« 2.2 L'intersrete Las 


evalustion de la macro (voir les exemples). Il existe 


fonction aui sermet de definir  sisement des MACKOS s la 


fonctions HE DE DG DMI ou ۰ 


MACROS 


AFIR 


nouvelle 


maniere des 


Ces MACROS ne doivent ras etre confondues ayec les macros-fonctions 


d'entree et de sortie (MACIN MACQUT) aui ne sont asctivees 


des lectures ou des ecri Liures. 


COM nom list-arss sl sw. SN) CESUBRI 


definit une fonction de Lure Macros Cette fonction 
nom» se liste d'arguments est list-srss ak SOL gores 
est si +++ SN, IM ramene le nom de la fonction en 


+ 


peut etre definie comme suit ¢ 


(LF OM (L) {FUT (CAR L) (CONS /LAMELA (CHE Lin MACKO) 7 


exemrles d'/utilizstion des MACROS 3 


Liaison des srzumerts dune MACRO s 


“er 


? (liM MAC (CL) 
? (FRINT “L ‘x L) 
T "Col 35) 


NR 


ramene la forme CAN] 32 aui 


a, Ai k de A 
بد و”وجمٌ‎ lL UGG, y 


"C> نیہ‎ 


= MAC 


i ? (MAC ^X) 
L = (MAC ^X) 
= 4 


Ab 


definition de la fonction MCONS sous forme de MACRO 57 


? CIM MCOUNS (L) 

T CIF (NULL. «CHOR L3) 

T C Co L) 

T C CONS (CAUR LI (CONS 'MOCONS (CEIR L3251222 
= MCONS 


P? (MCONS "o 'B 'C) 
= (À G + C? 


exemsle de modification rhnusiacaue du cores des 
fonctions contenant des MACRDS و‎ 


olè 


P {UM ZEROF CL) ` | 
T CKELACA L ER) 
T RELACE L ECAR LO) 012) 


= ZEROF 

? (DE FACT (ND 

? (IF (ZEROP N) 1 (TIMES N (FACT (SUEL N))))) 
l = FACT 


P (FACT Di 


= "27 
7 x„ 
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GLIG 


zi 
< 


Oe 


valeur, 


cette MACRO edite son argument et 


sari 


POUT 
forict4 onm 


*`2> cc» 


ret تن‎ ٣۶ 


MO 


at 


pe 


L'interrrete Les MACHOS 9 


Fa 
٢ئ‎ 


? (CUR ‘FACT? 
(EXER (LAMBLIA (N) 
CIF (EQ N 0) d (TIMES N (FACT (SUBI N)3335) 


2.3 Les tanlesux 


Ur mouveau ture d'onJet est  ammaoarus le Csblesu, Un tanlesu est un 
تہ‎ de memoires contisues mouwvwsmt contenir nm'imeorte auel onet 
Lise (atomes» nombress onsines ou listes). Les differents elements 
d'un tableau sont numerotes s l’aide d'un indice. Tous les tableaux 
sont actuellement uni-dimensionnes rer souci d'efficeacites le premier 
indice est Ô (ces tanlesux sont donc des vecteurs), 

Les differents tsolesux sont stockes ders une zone  srecislo» cotto 
zone est rartasee avec ls mile utilissteur. Les fonctions sur les 
tableaux rermettent de definir un tsolesu» d'avoir acces sux elementis 
d'un راج تاج‎ de modifier un element d'un baklesu ou cd'srmliauer ure 


fonction sux differents elements d'un panle. 


(LA non taille fonction?) [SUGER s 3 ersumente.l 


permet de definir un nouveau tables. nom est un abome littera: 
aui devient le nom Ou tableau? taille est le nombre d'elements 
aue seut contenir le tableau., S'il m'y às ras sssez de place our 
stocker ce nouveau Lablesusrs l'erreur suivante ersarasib ? 
XX mo room for arraste 

Si la fonction d'initislisstion? m'est ras fournies Lous les 
elements du  tsolesu sonb  initislises = NIL, dans lo Gan 
contraire» la fonction est arrliauee Pour cnaause Ed amem HEC 
l'indice de cet element lie au ler srsument (si il esiste) de la 
fonction. ILI reut donc ss avoir un arrel  immeliicito de la 
fonction MAFARKAY. Les differentes valeurs ramenees rar cette 
fonction seront les vsleurz d'initislisstion des elements du 
tableau., IA ramene le nom du tsaolesu en valeur. 


ex ? (HA “TAR 100) $ definition d'un tspnlesu de nom TAD de 
100 elements. Chaaue element est 
initislise a NIL 5 
(HA TEL 190 7(LAMEDA OX) Q)) 5 definition d'un tenlesu de 
10 elements» cneaue element 
est initislise s 9 $ï 


(HA ‘ARR io $ definition d'un tanlesu de 10 
“(LAMEIA (X) (w 9? X22) elements initislises à 7 
P 8 7 6 5 4 3 2 1029 


bot 


Une fois le tenpleau defini» on s acces a chacun des elements du 
tableau en evwelusnt une forme s 1  srsument dont la fonction est le 
nom du tableau et l'argument l'indice de l'element desire. Le nom du 
tableau devient donc une fonction d'acces s ce  Lablesus  L'srsumernt 
de cette fonction d'acces est evalue, 
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2.3 L'intermrete 


validite 
Gui 


ne Leste la 
rositionte 
sur les tanlesux 
n'est sa ur: Man 
rar le messese 
$ nom du tables. 
de definir de 
definis ce rermet 
derniers 


L'^intersrete 
diu R.G, est 
les fonctions 
(le nom Fourni 
sont sisnalees 
XX arrau error 
il est facile 
tableaux deda 
indices (voir les 


(cao 


m op 


2. 


? 
ka 


REN? 


+ 
* 


m 


5) NIL 
(anni 42) 


(TAE 
(TEL 


G 


VI 
#4 


(TT LSUBR a l argument] 


Mo 


ebre un 


co tasnlesu: 


doit 
cie 


l argument 
grand indice 


+ 
+ 


TAB 


49 


(DA 
C DLN 


TAE QO) 
^ TAB) 


a x save Ite 


A, 


SETA 


13 


(SETA mom indice valeur) LSUER a 


(it 
e 


l'element 
fournie 


sou ken + t 
ج1ی‎ TOG e 


dang 
valeur 
valeur 


met 
la 
ls 


* 
* 


10) 
10 


“TAB 5 
3) 


(SETA 
(TAR 


se 
d 
éi 


(SETQA nom indice valeur) LFSUERJ 


... 
Za 


identiaue la fonction 


vabe, 


eut 
SE 


ó CALL 1923 


20 


~ 


(SETGRA TAB 
(TAH 20) 


se 


CMAFARRAY nom fonction) LSUBR a 2 


“arè liny 
du LER LER 
est lie 


ls fon 
dont le 
(s'il ex 


rermet 
elements 
fonoctioh 


LC 


tables. MAFARRAY ramene MIL 
: ex $ (MAFPFARRAY TAB '£LAMEa 


“oun "a 


MIL 
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Est 
aui 
Oe 


FOU 


142 4Ti 


ki 
^ 
Xd 


bai lest 
٠٢۴ 1 8 


Los tanlesaux 10 


si 


si le Bit 
Fout toutes 
los erreurs 


incorrect?) 


de l'indice fourni aue 
l'/artiom rar defaut). 

vont etre decritos» 
tanlesu ou L'indice est 


Re 
les 
o 


des 
des 


d'acces 
ciu 


m 
e 


لان 


fonctions 


ES ls validite 


-1e5). 


de Lain lesti, RIM ramene le mlus 


3 suum ۳ا9‎ l s 7 


G 


t l'indice» 
en valeur 


e 


rim 
2 


r le 


SETA 


Srecifie r 


ë regum eii L ¢ 


19 


SETA lé nom du tablest m'est 


maii 


20 


arsumernts.l 


chion  srecifiec Four Checo. di 


nom est donnes Lo ler sraument de 
iste) & L'indice de L'element du 


valeur. 


« 7٦ 


se 


CA) (SETA “TAB X (AREL X222) 


2.47 L'interrrete Les tanlesu- 


T‏ ےہ 


(MAFARRAYOQ mom fonction» LFSUERJ 
est identique s la fonction MAFARKAY mais le nom du 
n'est ras evalue, 

(FILLARRAY non liste) [SUBER a 2 srsumentsd 


ranse dans les differents elements du tanlesi, dont le 


srecifie comme ler argument; les elements successifs de L: 


Peme argument. Si la liste est tror courtes le reste du 
est remeli avec des NILs $ si la listo zeme sruumernt 
realite um atomes la  tsblesu est remeli avec cet 
FILLARRAY ramene le nom du betleésu en valeur. 


ex $ CHA TAR 195 zz TAB 


(FILLARRAY “TAR (0 1 2 3 4 ü 63) -> TAB 
(FILLARAY “TAB '995) =m TAR 


(LISTARRAY nom) LSUSR a l srsument] 


ramene la liste constituwee de tous les elements du telesu dont 


nom est fourni en ler srsument. 


ex ¢ (DA “TAR 5) + TAB 
CFILLARRAY “TAR (10 11 12250 -> TAB 
CLISTARRAY “TAR? >> (10 li 12 NIL NIL) 


exemrles d'utilisation des Laèblestnr Ï S 


P (hà “TAR 100) $ definition d'un tableau de nom TA 

= TAB ? rossendasrnt 100 elements» chacun des 
» elements est initislise s MHIL, 

? (HIM ۶8 ( 


a 3 
= 99 


definition d'une nouvelle fonction 

P (IF (LE 2 Ï 99) d'acces a TABI aui teste la جا :ا اچب‎ 
P (TAU I) de L'indice fourni $ 

P (ERROR L"'debnordement TARL " Iè) 

= TAR 


وب 


P (NE TABI CI) 


S» 


ki 


P {UE TARZ LI J) 
P CIF CAND (LE 


$ definition d'une nouvelle fonction 
Ï ?72 $ permettsnt d'acceder su tablesu 
? KLE 0 d 92) $ TAB au mouen de 2 indices souvent 
P LTAB (ELUS CTIMES I 10) J}? » varier de 0 s 9, Cette 
p ? (ERROR ['denordement TAGS " I 122) $ fonction teste 
ï$ les indices fournis 


Z C3 


= TAB 
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tonlesu 


D 
^ 


4. 
V 


ROW 


KI 


ZB wen SE» CAR 


ue 


Sè 


+ 


> 


nom 
liste 


aphez 


eut 
a bome, 


KE 


Le 


c 


2.3 L'interrrete Les takblesix 


? (SETRA TAB 20 3) 
= 3 


? (TABLI 20) 
= 3 


T (TAB2 2 0) 
= A 


T CU ‘CLAIR 10 ‘(LAME (X) 
? CALCI X) tC("gzero" "uni" "deux" "trois" "cuatre" 
P teina" "sis" "serek" "muit" "Scip" 2129 


= CLAIR 


(CLAIR L) 


= "in " 


(CLAIR 2) 


^ doux 


تہ ]ا 


? (MAFARRAYR CLAIR (LAMBLIA CX) 
É ? (SETRA CLAIR X (CONCAT "=" (CLAIR X) "="32)33 
= NIL 


: P (CLAIR 9) 


= nent" 


2,4 Le Mode AUTOLOAN 


Certaines fonctions  utilisees  lreaucemmernt»s» C تج 7اا‎ les fonctions 


d'editions ou de corrections» reuvernt etre cnarsees aubometiauemerrt 


& 


leurs premier arrel. Ces fonctions doivent se trouver dans un fichier 


disaue et reuvent etre de n'importe auel tuse (EXPER FIEXPR MACRO 


GUDb comriles FSUER comrilee ++ Je Ce fichier sera liu rar 


ARRAY 


Lip 


fonction LIBRARY. Si la fonction me se brouye ras dans le fichier 
indiaues l'erreur XX undefined function  srsraraite Le Fonction 


AUTOLLA sermet de declsrer des fonctions de ce Lure, 


(AUTOLOAD file ati abil es. ati) [FSUBR] 


met l'indicateur ALITOLQOAL sur les differents atomes abil +, 


Ces fonctions devront se trouver dans le fichier de nom filè. 


GEN, 


AL 


ler arrel de l'une de ces fonctions» le fichier file sers charse 


. en entiere 


ex i$ CAUTOLOAD FHENAR FHENAKETE FHENARETEFILE) declare les 


S fonctions FHENARETE et  P"HENARETEFILE de ture AUTOLOAN 
doivent se trouver dans le ficnier FHENAK. 


http://www.artinfo-musinfo.org Notes sur le VLISP 10.2, mai 1977, page 15 / 56 


ROL 


elles 


3. Les nombres 


SECTION 3 


LES NOMBRES 


MOND PT 
une Zone 
revele 


Lures de nombres Les 
sont stockess dans 
Cs 0,00000 pA Se 
Si cette zone se 


Il existe deux 
flottants, Ils 
dunsamiauemerti,. 
‘erreur suivant 
XX mo room Tor Mize tie 


che 
tros 


E + 
arsaratt À 


entiers cst 
definie Les 


sortie 2 rar defi 


La resresentetian externe des nombres 
dans la bese de mumerstion est 
en entree et {STATUS m en 
bases est de 19. Ils  meuvent etre signes ou 
stockes en memoire sur un mot (de 35 mits) $ 

° compris dans ظ2 3 "ھط‎ L -2 ^ 35 +42 ^ 


v sd y Í مہ‎ 
[L-34359738 S690 » 4343597389346477. 


man 


33 


La remresentstion eskerme des nombres 
disits  decimsux suivie immecdistement san 
suivie ortionnellement sar une fraction 
arder une precision de 8G disits un با اج :یج‎ 
notation  "'E* Cette derniere forme di 
` disponible Qu'en sortie actuellement. 
stockes en mae e sur un mot (de 36 
signes 8 hits d'exrossnt et 27 bits de mz 


Li 


Les 
bits) aui 
srmibisse. 
llo ni de 

: L 2354215 e 


l'heure scbue 
جات‎ res cons 


Il qm 
Precision”: 


miste 3 
ni de 
r rti (ets de — ULISP 
بات‎ leurs utilisation 


Toutes les Fonctions et 
nombres», sont digroninles 


Gui vont etre 
noires, Lens 
Le libelle 
Sa TAL MENL 


at 


les nouvelles fonctions 
arsumenit (s) sont des 
Ne erreur caraibes 
non Filme r Í 
nom de 1z 


Toutez 

leurs) 
seraient raz, 
zfonctionc è X 

dans  leauel le 
imrrimese: 


Le 


Oe 


GP 
A 
Garou + 


fonction 


Un certain nomore de fonctions matnhemeticues ont 


la bhibliotnheaue FORTRAN Ceci les fonctions SQRT» 
fonctions emnetttent srarfois des diagnostics di 


de 13 
fa ta 1. Qu 


EG POUPEE + 


tentativo de calcul 
erreurs ne sont fas 
est nien evidemmert 


(sar Gui la 


nesesbif). Ces 


du calcul 


ETOFreS 
nomine 
resultat 
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entiers 


fonctions 

utr 

nore 
ils 


flottsasnts 
moint 
ci e œ d m e Í œ 
Peut 
ecriture 

nombres 


nombres 


-10. 19 


deumeture 


deeri Les 


cette 


l'/arsumer'b 


SIN» 
erreurs 


Les nriombres 


les nomaoares 
fixe goror 


le messsse 


et 
Lorger 
re tite 


suite de disits 
STATUS 95 n) 
valeur doe ces 

Ces mombres sont 
doivent donc etre 
- 1 1 c'est-s-dire 


Luo 


le 


nune suite de 
decimal (.) œt 
BNE Jl ema, Four 
etre  rsdoute er 
est toutefois 
flottants sonb 
nit de 


est 


contient i 


flottants “double 


utilisant des 


incnenses. 


tostent si 
نان‎ ils ne ie 


erreur est 3 


Can 


inucrimine sort 


i 


" came Pura Lec s 
ATAN 2224 Ces 
aui leurs sont 

racine carre d'ur 
sous VLISP" mais le 


el 
e 


Ete 


Zal Les nomares Les conversions LA 
del Leg conversions 


(FIX m) [GUER a l argument] 


convertit le nombre flottant n en son  eauivelent entier, Un 
calcul  d'srrondi est effectue sutomatiaquement de la maniere 
suivante ? la partie entiere est incrementee de 1 si la partie 
fractionnaire est >= 0.5 (our les nombres nesstifs le test est 


w M 
<= a 0.29 de 


ii 


X ï (FIX 
FIX 
CEIX 


+ 
Re 
UC 4 
Na Wo 
1 
H 
e 
L 


GJ پیا‎ C 
sa 


ج سه 
i‏ 
Gi le‏ 


(FLOAT n? LSUER a l srsumentid 
convertit le nombre entier n en son eauivalent flottarrte 
eu Z CELOAT 32 -> — 3. 
(FLOAT -2) رام‎ ed, 


(FLOAT 12000000050 > 1,2F8 
(FLOAT 3.14) <r Zelg 


3.2 Aribthmetioue generale 

Les arsumerts des fonctions aui vant etre decrites mouvort etre de 
m'imrorte auel ture ? entier ou flottsrt. Si L'un des  srsuments est 
flottant» le resultat sers un nombre flottant s si tous Les srsumentz 
sont de tuse entiers le resultat sere un nonbre entiers Il w s donc 
conversion  sutomstiocueo des arguments avec eriorite sux nomines 
flottants: 

(it nr) LSUER a l arsumernt:l 


ramene la valeur $ mn + lou 


ex ¢ (lt 3) + A 
Cid d.) “PP dax 


(]- n LSUBR a l srzumernt. 


ramene la valeur $ mn - i 


(1- 3.2) — 2,2 
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" 3.2 Les nomines Arithmetiauoe generale 15 


CF nl 02) CSUER a 2 arsuments: 


ramene la somme des 2 srzuments 3 ni ^ me +» 


ex ¢ (+ 2 3) =; à 
(+ 2 3.2) + se 
(4 2.3 de € NET 


{f~ ام‎ n2» .SUBR s 2 argumenta] 


+ 


ramene la difference des 2 srsuments à ril “ n3 و‎ 


ex $ ( 3 19° => 2 
(= 3 d. => 24 


) 
(€ 342 lel) s 2% 


CK nl n2) LSUBR s 2 sarsuments.l 


B 
ramene le produit des 2 srsuments $ ni X me + 
e exo; CR 3 2) = 6 


(X 3 2.1) "M so 
(X 3. 2.2) uo پور‎ 


(// mi me) LSUBR 8è 2 arguments] 


ramene le quotient des 2 srsuments S mt ZZ pn . Le “sracbere / 
est un caractere grecials il faut le doubler sour utiliser cette 


fonction ? on doit ecrire (ZZ 3 2.) et non (7 3 gede 
ex Z (// A 2) -— À 

(// 3 2.) -2> 1,5 

L Í í I 3 L 2 xs K o A 333333385 


LKE mi me) CSURR a 2 argumental 
ramene la valeur de l'evalustion de mi s ls puissance n3. 


. ex 3 (Xx 2 3) => B 
CKK 2. 4) -> Lè 
(XX 2 G.) -> Aia 

; CKE 2 0.5) + 1.414214 
(XX 2 70.0) جح‎ 0,7071068 
(Xxx 15. 0) -> E 
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Les nombres 


` ey 
< 3 ^ 


(AN nl n2 CL SUBER arzi 
ramene le reste de la 
utilisee en general z 
valeur du reste d'une 
caractere \ etant un 
du caractere /  (auot 


On doit ecrire (AN 5 


x $ (X 
LAN 


2 3) 


+ Se) ka 


CH CH 


3.3 F 


les fonctions 
etre de 


Four toutes 
existe doit 
automstiaue. 


Lus 


à (SORT m)  LSURR a 1 


la racine 


positif, 


٣ تا١۱ ت‎ 
ki Tilattant 


bet. ou, 
Lee 


ex ¢ (SQRT 2949 mo 
(SQRT 5.3 m 


(HART 
AFRSLISG sttemrt 


جس( رہہ 


bo 


IN n? LSUBR a l srsumen 


la valeur du s 


ramena 


(COS mni) ESUBR 


3 l 


la valeur du 


ramane 


LATAM ri) LSUBR a 1 


dao 
(en 


ramene la valeur 
valeur de l'angle 
5 exemrles d'iuvtilisat 
(SETO 
(SETO 
L SETU 


( 1.09 4 وت 
FI 22)‏ ##( 


(ff FI 4)) 
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take 


A 
GILLES 


d. OF 


Arithmetiaue 


mental 


n2. Cette 


entiers FOUT 


division de ni et 
vec des arguments 
division entiere (la fonction 
macro-ceracteres il faut lè 
carsctere) sour utiliser 
3) et non IN Z] + 


e 
pe 
red 


“2 


de 


249B0232E—-8 


option matnhemstiaues 
Gecrites, 


Div B 


etre 
TL 


Gui vont 
Tiottoehnt. 


e pag de 


3 retur rit. ] 


prae du nmomore n. m doit etre 


rz 

I 

A ^^ ven + c 
3. 234604 


SORT of negative ars= 2.234 


t. 


iris de langile mn exrrime en 


argument 


de l'angle n exumerime ern 


argumenti 


are tan NS Los pof 


+4 
la 


ls fonction 


radians) dont tansnte est n. 


des Tonction trisonometriaues 
3.14159 

"?1.57079 — اس 

Q.78053975 


page 19/56 


faire 


cette 


CH 
Aka PAL 3 ta Q d [ve] 


GER WEE 


l'arsument 


LH 


LH 
v. 


KI 


BONG PS la 


fonction 
ramener 


MOLLI. ò + 


lé 


Est 
la 


Le 


precoder 
Porekar « 


padi ENS * 


PEL BFS + 


ii te 


s'il 
CONE PE lO 


nomina 


(EXE 


(LOG 


CLOGIO m) 


Les nombres 


(SIN 0.) -> 0 
(SIN FIi4) e 
(SIN FI!2) => da 


(COS 0.) . جم‎ Le 


(COS FI24) me 
(COS FI:2) = 


lasi) - -> = 142 


(SETQ X 


(SART (+ Ok. (SIN X) 2) (Xx (COS 


3 iz 


32 
fonction TANÓÁNTE n'est ras 


(IE TANG (X) 


(// (GIN X) (COS KII) -> 


(TANG 0,) “> Q 


Fonctions mathematiques 


0947071063 


Q.7071072 
l1.334181E-4 


A) 222) 


standard 


TANG 


(TANG 
(TANG 


FI:4) 


ER 


su Ze 


0.599987 


3ء 749523 


(ATAN OQ.) S d 
(ATAN lo) S 07-28 
CATAN (TANG 1.123225 = 1.123 


n? ESUBE 
remere la 


ex $ (EX 


ë l 


arsumernt: 


valeur e puissance nme 


0) T 


Le 


147 + 2.718282 


(EXP 


li) CSUBR 3 l argument] 


ramene la valeur du logaritme 


ex ¢$ (LOG 1.) —-— D 
(LOG 2718292) -— la 


LSUBR a l arsu”mentl 


ramene la valeur du logarithme 
(L.OG10 
CLOG 50 
(LOG10 


(LOGILO 


l.) => Ô 
19.) uu Loe 
30.2) -> 1.30103 
1080.) ME 24 


+ 
Gi + 
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decima i 


nerenrisenmn de 


+ 


+ 


ide nm. 


le 


definissons-ls 


De 


^ 


D 


17 


3. Les nombres 
CRANDOM ESUBE a Ò argument] 
ramene a Chanue arrol un nombre 
dans l'intervalle 10. s lake 
ex ti (RANDOMO => — 0.19498197 
(RANDOM) “s5 07324636 
(RANUOM) = 0,6087399 
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Fonetiors 


flottant» 


matlnemstiaues 18 


alestoirae» 


COMP ط٣‎ 


à. Les Fonctions Standards Les Fonctions Standards 19 


SECTION 4 


LES FONCTIONS STANDARDS 


nouvelles fonctions sont srrsruess et d'autres (tiros meu‏ جج نا1 ج۳ ں ت3ا 
nombreuses?) ont ete modifieess ce aui ne sene en sucumn Gat la‏ 
commatibilite. Certaines fonctions d'/entree-sortie ont egalement ete‏ 
modifieess une section leurs est consacre,‏ 


4.1 Les fonctions modi Pieces 


(REVERSE 11 12) [SUBR 8 2 arsuments.l 


La fonction REVERSE peut avoir maintenant un seme srguments s^/il 
est fournis cette fonction corresrond s l'ancien semel ï 
(NCOUÜNC (REVERSE 11) 12), 
S'il n'y a pas de Peme argument son action est  identiaue a 
" l'ancienne version. 


ex $ (REVERSE “(A (Œ C) DE F2 ‘CG MH I?) 
` -> {E D (BC A G H IO 


(LAST 1 n» ESUEK a 2 arsumente`l 


le memes four la fonction LAST, un Zeme ersument riumericue #eut 
lui etre soute four obtenir la liste des n derniers elements de 
la liste le Si n n'est res donnes l'effet est inchsesnse» et une 
liste contenant le dernier element de la liste  srsument est 
retourneec comme valeur de la fonction. Cet aout est tres 
utiles et rermet notammmnert de detruire mhusicuement la (OU les? 
dernier element d'un liste de la maniere suivante i 


ex $ (Rb el (LAST “(A B C Di 2)) -% (A B C) 


L UBL IST) LSUER a Q arzument:l 


ll n'y 8 elus d'argument a cette fonction du Fait de la sestion 
dunemique cde la liste des obpdets internes. De lus OBLIST ne 
ramene Plus l'atome UNDEF dans la liste des ondets (ce aui evite 
bien des erreurs Xx UNDEFINED VARIABLE, 
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"m 


4.2 Les Fonctions Standards Les nouvelles fonctions 3i) 
4,2 Les nouvelles fonctions 


) ۷7ا0‎ atome) LSURR a 1 argument] 


est un K radi وم‎ t cui teste si l'atome donne en argument rogssede 
une valeur {telus sreciscement possede une C-valeur مت‎ ce D Oe 
UNDEF). Ce eredicet est utilise rour tester des variables Libres 
sans crainte de l'erreur ٭‎ UNDEFINED VARIABLE, 


an Ï tester si l'/stome X est lic». sirier; lui donner la valeur 
MIL COR CROUNIIF "vn (SETQ X NIL?) 


(231 


(COMMENT el e2 ,,4 eN) LFSURBRJ 
est une fonction de commentaire aui remene  Loudours i^stome 
COMMENT ern valeur. 


(COPY l) CGUpb as l arsumentl 


= fabriaue une corie de la liste l en entier. Cette fonction est 
eauivalente s l’ancienne ecriture (SUBST MIL NIL Loir mais est 
evidemment DESUCOLUF mlus rarmides L'intererete se permet 

` d'utiliser cette fonction s la rlace de la fonction SUBST dans 
le cas ou les deux premiers arsuments de la fonction SUBST sont 
les memes rointeurs mhusiatess 


(ICONS s 1) [SUBR a 2 arsumentel sour "Distriboutive CONS" 


est eauivsliente s l'evalustion de ï 
(MAFCAK 1 (FUNCTIDN CLAMEBIIM (L) (CONS e 122252 


LERT) ESUBE a Ô ersumentol 


rermet d'asrseller le rrogremme DDT sour la mise su roint des 
fonctions GE en Lob ou de l'intenrsrete lui-meme s Si DDT 
n'a ras ete charge su moment du link-edits cette fonction ramene 
NIL» SIMON vous vous retrouvez sous DIT. Four revenir a LISP, 
faites-lui executer RLUTTzXx. 


(HELQ 3 12 LSUBR a 2 arsumente. 
(DELETE s 12 LSUBR a 2 arsuments- 


remene une  corie du  tor-lceveoel de Ï dens lsauelle toutes les 
occurences de l'/stome 4 Tenun la fonction DELQ) ou de la liste s 
(sour la fonction DELETE) ant ete enlevees, 


ex $ (DEL À (Z À Y à X AY) -> (Z Y X) 
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4.2 Les Fonctions Standards Les mouvelles fonctions 214 


(FREVERSE 1} DSUBR a l argument] rour "Fast REVERSE" 
renverse erhssicucment et rapidement ls liste l. Cette fonction 
doit etre manirulee  svec rrecaution Gat alle modifie 
Bhusiauement des structures  LIS'"s» mais elle est evidement 
hesucour Plus raride aue la fonction traditionnelle REVERSE, 
ex $ (SETQ Li “(A 8 C U EJ) vw (A 8.0 Uu ED 
(SETA L2 (CHE L122? - CR C n E) 
(SET LES (LAST L1252 ساس‎ CE) 
(FREVERSE L1? -— CE DU CHE A) 
He -> (CH A) l 
L 3 -> (CE DCD oi 
(FUNCTION ex LFSUEBERJ 


Cette fonction est identique s ls fonction QUOTE — sout 

l'intermrrete mais signale su commilsteur au/il doit comriler 

l'expression donnee en argument comme ne fonction. Cette 

fonction est la seule "declaration" utilizsee sar le commilsteur 

et n'est as obligatoire. FUNCTION est  mrincirseslement utilise 
` dans les fonctionnelles. 


` (IFN el e2 e3 ++, eN) CFSUBKI sour "IF Not" 


Cette fonction est eauivslente s 3 
CIF (NOT el) o2 žes. oM) 


CINUMEF) LSUER a l srzument. 


Ce nouveau  rredicst teste si l/iarsumant,y  mnumeriaues est un 
"retit" entier Lee. un nombre awanb une remresenbtsation uniaueoe et 
se trouvant dans Le zone srecisle reservee s cet effet, La 
taille de cette zone est Piee s la seneratior, du systeme, Ce 
eredicat n'est utile aue FOUT le commilsateur. 


(MCONS si 82 ++. SN-1 SN) [SURE a M srsumentsi rour “Multirile CONS" 
Cette fonction est eaquivalernte a ï 
(CONS si (CONS s2 € + (CONS sN-1 SN) ses 22) 
exi (MCONS ‘à E U) -2 (A E 0 
(NCONS 3) [SUBER a 1 argument] 
est enuivalent è l'arsrel ? (CONS s NIL). Cette fonction m'est 


PI 
| ras tres utile four vous mais est utilisee rar le comrilateur»s 
Four smeliorer le code senere, 
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em 


4.2 Les Fonctions Standards Les nouvelles fonctions A un 


(SAMEFN al a2) ESUEBR s 2 arstumentbeol 


ramone T si lo Feneme de l/atome al commence sar ie  PF-naeme de 
l'atome azy sinon ce  mredicst ramene NIL. SAMEFH est utilise 
sour tester les rremiers caracteres du F-nene d'ur atomes 


ex } (SAMEFN “XxLIOL xX Y em F 
(SAMEPN "XL 101 XL) =x Up 
(SAMEFN (XLIOL 'xM) NIL 


i 


(XCONS si $2) ESUBR s 2 argumentasi sour "exchange CONS" 


est eauvivalent s l/asrrel ï (CONS w82 #1). Cette fonction n'est 
ras tres utile sour vos fonctions imbererebtees mais elle rermet 
d'emeliorer le code genere du commeilstourn,. 


4,3 Les fonctions testent les tures 


Du fait de l'introduction de nouveaux  Lyress les fTonctions de 
. recherche sur Lure ont ete modifice, 


a (TYFEF %5) LSUER a l argument] 


ramene differents stomes en fonction du bure de s. Cette 
fonction seul etre utilises pour. construire des fonctions 
"generit". TYPE" ramene l'astome $ 

- LITATOM si s est un atome litterslr 

NUMBI si s est un nombre (sour connaitre le ture de ce nomnaray‏ ہ 
il faut utiliser la fonction TYPFNUME) »‏ 

— STRINGF si s est une chaines 

- LIST si s est une liste» 

— NIL si s m'est pes un on.et LISE (rar exemmle une adresse de 
lancement de SUBR: une adresse de tableau eki ecel. 


ÉTYFEFN a) [SUBER s l sarsument.l 


Cette fonction teste si l'atome s donne en argument rossede LMe 
definition de fonction. TEEN rsmene l'atome tł 


- EXPR si a possede une definition de Lure EXER, 

- FEXPR si a possede une definition de ture FEXPFR» 

- SUEK Si a rmossedo une definition de turo SURE» 

—- ESUBR si s rossede une definition- de tuse FSURK» 
| - MACIN si a rossede une definition de Lure Ho IN: 

- MACQUT si s mossede une definition de tuse MACQUT» 

- MACRO si a rossede une definition de Lure MACRO» 
A - ARRAY si a rossede une definition de turo ARRAY» 


- AUTOLQOAL s 
- NIL Si i 


a est une fonction de ture AUTOLOAN 
ne possede mss de definition de fonction. 


EP o 
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"3 = 


3.3 Les Fonctions Stsndsrds Les fonctions testent les tres 235 


Si l'atome rossede Plusieurs definitions» TYPEFM ramene le ture 
de celle au/utilisersit EMAL si on “evalusitb une forme dont is 
fonction etait s ro'est-s-dire la rremiere definition Lrouvee 
sur la F-liste de s. 


(TYFNUMB m [SUBER a l srzumenti 


cette fonction teste le ture du nombre donne en  sréument et 
ramene l'atome : 

= FLIX si le nombre n est de ture entiers 

- FLOAT si le nombre n est de ture flottant: 


- NIL $i l'sarzumernt n n/est ras un nomi re. 


4.4 Les fonctions sur les F-listes 


Les indicateurs sur les F-listes reuvent etre maintenant des Listes, 
Toutes les fonctions de recherche sur les  lP"-listes utilisent le 
mredicst EQUAL. Toutefois rour sccelerer la recherches los Fonction 
GET GETL FUT et REMEROF testent d anord si l'indicateur ne serait sans 
un atome littersls en ce cas» une routine grecialisee est omrlouce,s 
Cette routine utilise le rredicst EQF et est extremement, rarides Une 
nouvelle fonction de recherche s ete sJoutoeo. 


(GETL ا‎ ind) CSUGE s 2 srsuments] 


ml est la F-liate 3 exrliorer et lind est une liste 
d'indicateurs.  GETL ramene la sous-r-liste de si commencant rar 
un des element de lind. Cette fonction  mermel entre aubre de 
lever l'anaisuite aui  existsil» dens la fonction GET» entre 
l'absence d'ur, indicsteur et la valeur NIL  sssociceo s ur 
indicateurs 


px 3 DET "CIL ا‎ 12 2 IS 3) 12 1420) ee 112 2 LÀ 3) 
(GETL “(IL 1 I3 NIL) “(I2)) مہ‎ (T2 NIL) 


4,5 Les fonctions sur mile 
La zone dans laauelle est stockee la rile utilisateur  etsnt ssrissoo 
avec les tanlesux» la taille de cette rile est donc determinee rar la 
difference entre la taille de la zone allouee aux banlesuxs et la 
somme des tailles de tous les tanlesuxs definis. Les 2 fonctions sur 
nile ont subi des modifications. 


CFUSH si os EN) ESUBE a N arsumerrbs] 


comme  eusaravantb,y PUSH empile los velours des differentes 
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45 Fonctions Standar 


Les 


BMETESSIONS sl ++ SN ot 
argument n'est fourni (i 
est auand meme emrilees 
(FOF n) ESUER a 1 argument] 

si l'argument m'est = 
rrecedement 2 le somme 
pointeur de File est mis 
donnes FOF ramene le nie 
du pointeur de rile m 
nombre est nesetif,. on 
File srecedemment emi lea 
sortir de la zone slloue 
les erreurs de dekbordeme 
èx $ (FUSH ‘à 3) 

C FUSH ( 

(FUSH "Di 

{FOF 0) 

("OF 1) 

(FOF 2) 


COP 
{FOF ) 
{FOF 
(FOF 
FOF) 


1) 


mE 
he 


ids Les fonctions sur rile 24 


4 s ea 


v ou 


lugo 


leurs Toutefois si 
GELSH))»? une valeur 


SN 
Or 


GI 


MV 


SGUCLI 


MIL 


0+.) 72 


202 Bi e 


identia.us 
en valeur œt 
pumenriaugoe rn 


l'effet 
ramene 
. ج٣ الات‎ 8 ١ 


2 15 È 


fourni» 
mile 


JLI YT + 


Guo 
lc 


eut 


23 15 
t 


Gut 


Si 


de 


E 


me element contenu dens la rile s sarblr 


51 


de 


mas  modifies 
ë des elements 
me faut toutefois mas 
meine declencher 


m'est 
acre” 
II 


SOLES 


celui-ci 
avoit 
deri les. 
la mile 


ilc. 


ais ge 
PÈL 
mui 


OLIN 
De 


la 
e 
(2 


n t, 


Ce 


-> NIL 

oe E 

D D 

ec NIL 

> S 

m B 7 
-> NIL 

-— fa 

pe B 

e à 
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Les Entrees-Sorties 


SECTION 


LES 


ont ur 
sreferatile 
elles ou 


littera 
il est 
des linm 


Les gtomes 
lieu de 18), 
FOUT imrrnimor 


3.1 


dong 
an bebe 


stomes 
3 bomes 


recherche des 
les 


La 
notamment 
aman 1 Li OF a 


standards 
Le 
LIST. L. 


^ 
Ra + ++ 


mac ٢٢٥٠۶ - ۳ج ت .اص جت ۳ ج ت‎ 
crochet ouvrant FÊ et 
l'arrel de la fonction 
eauivelente s (LIST el 


Deux 


GN) 


carsoteres 
est effectue, sauf 
et des commentaires, 
indiffcerscemmernt er 


Uri des 
maJuscules 
` caracteres 
etre tarees 


trenscodase 


Termanbes ) cn 


rermet de 


sarentheses 
Lënorees, Ceci 
terminer la frarre 

sesrentheses Termantese. 


Les 


riaues geo trou 
des abome 


XPL U UE 


caracter 
dans les 


ex f (AI 


rime 
Frames 


(CAUR E 


Les 
(et 


AR? 


FOlrbes € 
le ca: 
flottants: 


et non $ 


Le delimiteur de praire 

caractere esrace car 

l'ecriture des nombres 
ex ï (VAR à Mot: 


REAL error. 
ce limiteur 
L l ne se 


LOA CH), 


L erreur Xx a 
utilisstion du 
crochets carres 


dans l'exrressior 


Oe p 


fin d'un fichier d'enitreo est 


La 


٣ emis rap la fonction‏ ءلاءءتا 
S-exrression etait en cours de‏ 
devient xx Esk. durinz READ.‏ 
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ENTREES- 


P'-name 
d'utiliser 
du texte. 


La fonction 


L'OBLIST a 


crochet 
‘ecriture 


ranar, 
Les 
me, jus 


202.33 وخ 


Pmrendreo 
des S-exrmrescions FSB 


van, 
sont 


^ EC to To 


mansit 
aire 
ferment 


toudouns gin 


Les Entrees-Sorties d 


5 


SORTIES 


3 “asé 


Mix teka 


ہکس 


Lmum ati 
ciores 


caracteres s 


les chaines 


Ce 1 LI 


qe 


RE ALD 


ate 
IST 


cantu 
Leur 


Peyr la 
Ce 


accelenrec cr 


de  l'ORBL GES CLIO 


“a, 
e 


lo 


EN 
Uu 


en Grt, جن‎ : 
cOorresmondgdaort 
est maintenant 


ont ete introduits 
fermare d. Ils 

L G 1 c 2 + + + Q N d 
ka 


\ 


minuscules GLU 1٠۷ اج1‎ 
lecture des onhsines de 
ions hise meuveent donc 
m h Pa نا500‎ GAS ¢ 


en leurs 
la 
ےت جا‎ EF و تح‎ 
cules ou er 
sont 
de 


cde 


Bre P ےگ ری‎ L ۳ات‎ 
habi tue 
POD T ER 


۰ا ك 
atia d uo‏ 


PIN SÉ Tan 


is EL 


G 


la 


de ractaorgsu 


nomoraese 


chaines (2:37 


COMME 


Chans des 
cora L de res 


eem t 


daos 
39 e 
e / (iu 
FOUT 


ENGag reta 
Utilise 


ires d. et enan 
G sa lL 310188 


etre 
eut 


doit 
poirt 


“CHAL 4 VARO 


Cau dao 
este l marn, 
0 Pi 


mauvais 
ci e ai 
lo 


toudgours en 
epinbee C.) BL 
E BO Lenmer L 


Het 
ER 


Fein Qn 


E 


ا1٤78‎ 


pen qum gr et eod pe 
m e uim 


mar lo Sas 
Toutefois 


Lermirec ? 


lee 
EDF, 
L nOn 


Mes 
s brands ra Si 


lecture Le 


5.2 Les Entrees-Sorlies La fonction PRINT 


5.2 La fonction PRINT 


La restitution du mecrovcaractere QUOTE (^) en sortie ne se fait 


l'occurence de la fonction. QUOTE a 1 argument 1 (QUOTE A B) me 
plus ‘À (ce aui etsit enronne) mais (QUOTE À B5. 


L'imrression d'un obde non-liss (du genre adresse de Lancement 
est le 


SUBE) est Faite en octalv erefizee par lo caractere N (aui 


macro- caractere do rassado en mode octsl?» co aui ات‎ GUTE 


relecture: 


exi (VAG ‘CARD zz 1405006000 


4.3 Les sreficicalions de fichier 


ën 


$e 


iu 


La forme generale d'une grecificaltion € 
dé 


inchangee 3 
(device (Filename + extension? (erodet . programmeur)? 


device Z les 3 caracteres du nom Ou merisnenriaue 
filename $ mom Ou fichier (6 caracteres su MER MAM} 
exteris iorn t nom de l'extension (3 caracteres su maximum) 
r rejet i numero Cou nom? de rodet 

H Fe 


. Pmrosrsmmcur namero Cou mom) Ou TOE Y نات 7اا ظ‎ ¢ 


» 
26 


conma 


Oo 


La 


fichier est deumeuree 


L'ensemble (rroJdelirrograemmeur) ect ls srecificaltion d'un rererloire 


(SET) 9 L'absence de cette srecification imeliaue l'utilisation 
Ç i + (2.4 


resertoire de l'utilisateur, Les rerertoires de - bwe ۶0 4 
pouvant contenir des lettres) sont correctement traites, 


Srecificstions sar defaut t} 
device 3 TTY (lo terminal) 
filename + en entree LISPFINs en sortie LISFOU 
extension i! en entree ULI (sour un fichier ecrit emn VISE)? 
تھا‎ (sour um ficnier issu Ou commsilsteur? 
LOU (pour un fichier issu de lL’ assembler? 
en sortie LOST (sour les sorties normales) 
PRT (our les sorties issues 
du FRETTY-ERINT) 
rrodet.rrosremmeur $ colui de L'utilisateur 


Far defaut donc» 
€ INPUT) == INPUT "CTT (LISFIN + VLID () رر‎ 
(OUTFUT 5 == (OUTFUT ^CTTY (LISFOU + LST} €) )) 


Une nouvelle ecriture sllesee est egalement possible; comgtiltuee 


atome simrles elle corresrond s la forme $ 
{USK atome +. extension standard) CGirtilisstueur?? 


CINPUT 'FOQ) == NEUT ‘USK {FOO + YLT) () رر‎ 
COUTPUT *PHOS se {OUTFUT ‘USK (FOO + EST) €} 22 
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ciu 


aur 


+ 4 Les Entrees-Sorties Fonctions sur les fichiers p 


CH 


5.4 Fonctions sur les fichiers 


Tous les fichiers d'/entreeo sont comsalinles avec l'editeur de 11814 
ETV. La premiere rage du fichiers Gui contient son rerertoire et aui 
est mis a Jour rar l'edileurs est considere rar la fonction d'entre 
REAL comme un commentaire, IL fout toutefois mrendre garde s ne mas 
mettre un caractere ہا‎ en tete d'uni fichier?» ce cersctere Û etant 
Justement la maraue du resertoire de ETV. 

Un nouvesu mode de chargement raside a ete ajoute : le mode LIBRARY: 
Gui» silencieusemernt» vous charge n'importe auel fichier. Ce fichier 
(d'extension VLIs LAF ou LON) seut so trouver dans votre zone disaue 
ou bien dans d'autres zones aue VOUS souvez srecifier Grace s une 
nouvelle fonction PFAÓTHLIBRARY. 


(LIBRARY file) LFSURBR 


charge le fichier file sens impressions Ce fichier doit posseder 
l'une des extensions standards  VLI LAF ou LOT Si le ficnier 
xisto et si le chargement s'est correctement effectue: cette 
fonction ramene file 1.68, le non de ce fichier. Nano bous les 
autres cas LIBRARY ramene NIL. Lè resertoaire disoaue dans legue 
le fichier doit etre cherche est serecise par la fonction 
suivante. 


ex 3 (OK (EQ (TYFEFN “FHENARETES) 'EXPRÓ 
(LIBRARY FHENAR) 


(ERROR "mais ou est-elle donc rassee ?")) 


(FATHLIRBKARY renal pense ++. PENN) ISUER s M arguments 


indique a la fonction LIBRARY les differents  resertoires dans 
lesauels elle doit recherconer un fichiers Le  rerertoire 
utilisateur est  indiauoe sar NIL. Las recherche s'effectue dans 
l'ordre des arguments donnes s cette fonction. 

Fer defaut (F"ATHLIBRARY )( SY)» indique au'/il fout d'abord 
ج لیا جج ج‎ de chercher le fichier daris Le rerertoire de 
l'utilisateur et en cas d'/echec dens celui du systeme: 


CHIRECTORY ren) LSUBRR a l argumenti 


ramene la liste de tous les Fichiers du rerertoire mmn. Cotto 
fonction est utilises sour s'assurer do la presence de fichier 
en restant sous LISE, 
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cie 
POUT 


Lotte 


L 


5.585 Les fichiers imsese-memoire 
Ceux nouvelles fonctions ont ete crees Fout rouvoir sauver l'image 
memoire de votre zone de travail sur disada. Ces deux nouvelles 
fonctions deviendront sar la suite inutiles s la mise en service 
la nouvelle UUO IRCAM SWAF. Si vous ne rrecisez ras de fichier 
ces deux fonctions» le fichier rar defaut sers : 
(HRK (TEMEOK + CORO () ) و‎ 
(WRCORE filesrec) ISUER a l argument? 
ecrit dens le fichier srecifie votre: image memoire, 
fonction apres execution retourne su Lor level de VLISF, 
(RICORE filesrec) LSURR 3 1 ersiment.l 
restaure votre imase memoire a partir du fichier spegi fio, 
Comme WRCORE cette fonction retourne  grres executor 
tor-level de TDF, 


m0 


& + Le Fretbtyu-Frirt Lo Prettvbhpint SA 


SECTION 6 


5 


z PRETTY-PRINT 


6.1 Introduction 


Les fonctions standards PRINT et  F"RINÍI sont  d'ordinsire utilisees 
POUT editer les S-exrressions LISFS, Les seules mesures Prises FOUT 
ameliarer la lisithilite sont à 

— l'insertion d^ un ےم مم جج‎ entre cnsaue atone $ 

- SES quae ا‎ d'éditer un stome sur deux lignes 


Ces mesures sont nettement insuffisantes sour editer vos FTOS DENMEN » 
Les fonctions du FRETTY-FRINT vont les editer d'une maniere Leeucour 
plus lisible en faisant resarlire su mosen de renfoncemants gauches 
at de sauts de lignes sd nocs la structure de controle de vos 
fonctions. Les macros-carscteres definis de maniere standard dans le 
systeme (i.e. les caracteres ' FE 1d ) sont esslemernt restituws sar le 
PRETTY-FRINT. 

Les Fonctions standards aui vont etre decriles sont de tuse AUTOLOAN 
lie. il n'est sss besoin de charser le fichier aui les contient» le 
systeme le fera rour vous su premier arrel de l'une de ces fonctions. 
Si malgre tout il vous semble utile de charger ce fichier rar 
vous-meme, sachez au'il se nomme PRETTY et au'il est  sisement charse 
sar l'evalustion de (LIBRARY FRETTYO. 


d, Les Fonctions cu FEETTY-òEINT 


(FRETTYE $) LSUER 2 1 anrsument: 


edito la GER TO LO S. Cette Fonction remene $9 en valeur, 
Elle est prete eno senoeral dans vos prorres Toncbtions Qui 
doivent editer des ondets LISFS. 


(PRETTY ati ati +++. atN) LESUBRI 


edite les definitions existantes de ture EXER; FEXPR ou MACED 
des differents atomes abi +++ BEN. Cette fonction ramenê 
toujours NIL en valeur. Elle est ubilisee en mise nu poirt 
converselionnelle»s sour verifier  sisemont uro rarenthesase 
douter 


CFRETTYFILE filout Filiril +.» TilinN) DSUBRR a N asrsumoents: 
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Le PFretts-Frirnt Les Fonctions du PRETTY- 


D. 
t3 


TRINT 30 


edite dans le fichier de sortie filout. toutes les S-oxrmressions 


contenues dans les differents fichiers d'entree 
filrnN. Cette fonction rermet do faire des copies 
VOS  Prosinsmmos  crros mise acu  moint. S'il m'y 
srecificabions rour le fichier de sortie (filout 
fichier (OUSNOPRETTY,.FRT22 est utilise. L'extension 


T L 1 T ri 1 + + + 
lisibles de 
3 pas de 


NIL)» la 


standard des 


fichiers de sortie du uFRETTY-FRINT est ERT +. - Ces fichiers 
peuvent etre relus par LISE; mais doivent ebre reforma Les pour 


utiliser l'editeur de l1’ IRCAM ETV. 


Cette fonction a le born sout de lire et de reecrire les 
commenbaire: fis. la suite de caracteres auelconaues encsdree 


du delimiteur "5 " ) Gui sont d'habitude com ]etemert 


isnmnoresgs de 


LISP, Ceci devrait vous donner l'envie de nien commenter les 


PPO TNES + 


Un saut de rage est effectue s chaaue occurence du cars 


(Form Feed) ou s la rencontre du commentaire greciale 


(FRETTYE file? 713 


chere "Ul 
#FAGES + 


est une forme ebresee de la fonction PRETTYFILE. cette fonction 


“El Suivant ? 


correspond se J’ are 
“(HSK (file + FRY) ‘(USK (file . MLL???) 


(PRETTYF ILE 


« CPRETTYSIZE n» ESUSR s l argument] 


permet cd'initisliser ls largeur d'imeression ou FRETTY-FRINT,. 


Fer defaut cette largeur est de 72 co oui correspo 


Bo apee TG و‎ 


au farmat standard 21x299»7. Si n n'est ras donne ou n'est ras un 


nombres la Largeur standard est rise. 


(FRETTYENDO LSUBR a Ô argument] 


rermet deo recurerer la place ocouree rar les Fonctions du 


FRETTY-ERINT. NEL remet cuselemert los 
AUTOLQALS cde ces fonctionss  FKRETTYENT remana cn 


i r nO 4 4.0243 لا تج نا‎ TO 


Le‏ کت 


nombre de double um libcerez. Si vous utilisez le FRETTY-FEIMNT 


commiles cette fonction m'a sucumn effet, 
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" le LAF le Lob 31 


M 


$ 
SECTION 7 
LE LAF 
LAF est un sssemhleur (ressemblant s l'sssemboleur du FOFIQ):, concu 
eour etre utilise rar UVLISI"-10.25» revwa originellement sour charger 
le code issu du commiisteur,. Il eut etre utilise seul sour ecrire 
de nouvelles fonctions  stsndsercds. Uri minimum de connsissaonoes de 
l'asssembleur PUELO et de l'orssmnissestion de l'/intersrete est reauis 
POUT utiliser le Lob sans dessts. 
LAF recoit en argument une liste dont les elements بات پر ایس‎ etre i 
— des atomes litbtereus (aui servent d'eliauettes 
- des listes resresentant des instructions mO Tm ] ت٥خ٥‎ n geg 
rsoeudos-inétructionss ou des macros-LôfFs (MACL APs) و‎ 
Cette listo rout etre reme lacee sar un Fichier s'il w a bhesudcour 
d'instructions s charger, 
7.1 Les registres 
L'intersrete utilise les lé registres de ls machine de la maniere 
Suivante ¢ 
Li 
no sumaol remna raez 
00 RG est le registre senersl lui-meme. Qn peut donc tester 
directement su mosen d'un MESKE les hits utiles, 
Qi 1 sccumulgteur 1 ! 
OQ A2 &ccoumudlstseur 2 ! Seuls ces 4 registres sont mettosves san 
Od oi accumudlaáteur 3 ! le G.C. 
24 A4 accumulasateunr 4 ! 
تہ ت0‎ acoumulsteur ou 
QÓ AS accoumudldateour ó Ces 4 resistres font office de registres 
07 m7 accumulateunr 7 ا لا نات‎ 118 ۳۴ + 
10 A8 accumulasateur 8 
11 1لا‎ LISA r i ! Ces 2 resistres ne sont 
12 L2 user 2 | jamais utilises far l/inberrrete. 
13 L L dril est utilise four les appogg de DSF 
de Lure JS. 
A 14 STRO contient Loujours lè pointeur sur la liste 
libre des cheiness 
. 15 NUME contient btouJdours le msointeur sur ls liste 


libre des nombres. 


lé FREE contient toudours le roimteur sur la liste 
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+1 LAF 


le 


یہ 


libre des listes. 
17 F est le pointeur sur 
rar l'intermrete, 
7.2 Dës SLI 
Les atomes litteratus, les POMPE ¥ 
stockees dans des zones fixes Ou l 
rerresentes d'une maniere interne 
ce pointeur n'est sss une adresse mi 
au debut de Cette zone. Un s secces 
de sumholes  sreecisuxs tdont le ler 
connus du Lob, 


e MEM 


adrese PITS 


de ls zone 


- ZONE DES ATOMES LITTERAUX - 


, + BNUME deti t. 


DOIT 


indes du 
des 
ZONE 


DES NOMBRES 


SESTRI index du denut 
des opare s 
- ZONE DES CHAINES - 
BL Ir index du cdaenut 
des listes 
De va 4 
- ZONE LEG LISTES - 
7.3 Test 
Grace a ce GJecourase de ls memoire» 
GOMFaTSiIiSON avec les limites dez 
ler abome stocke dans ls zone des abo 
la valeur de son index est © f les 
d Se coder en une seule instruction 
ex Í pDrancnement si AL est un momore 
(CAML ^l :ENLME) 
(CAMI. Al SBSTRO) 


CJRST Ò auelaouersrt) 
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QU: 
sat 
Pru 


inc 


des 


de 


de 


de 


0112414 c 


L JUMPE 


Les registres 32 


l'unique pile utilisee 


LISPs‏ نادان جات 
listes sont‏ 
sont toudours‏ 
ces zones ï‏ 
qon‏ 
17107 
sont‏ 


chaines اج‎ les 
Cos objets 
ee CL PEL EU Te Sur 
sicue mais un index rar 
aux limites de ces zones 


cansa an * 3.89 


les 
SEG. 
un 
UTOP 
31 


eut Gui 


St 


ciere 


enurt 
Jets 


cu gd 
OD. 


la zone 


si 
میں‎ 


ا الات 


bi 
3 


la 


2 الات 


Le 


test de ture rameno a 
e qui est tres efficient. 
Ey est l'stome NIL 
babe rar-rerronrt s NIL seuvent 
Cu UMEN). 


se 


Lc 


D 


7.4 le LAF Crestion d'objets 33 


7.4 Crestiam d'ondets 


Four creer un abome littersis il fout rressrer dans un sebit buffer 
(de 3 mote) de nom 3 ENAME (ce mom est connu de LAF) le F-neme de 
l'atome aue l'on veut creer ruis arreller une routine de l'interrrete 
de nom  : TRYATOM su mowuen d'un CRUSH F $TRYGTOMO. Ce buffer doit 
contenir les caracteres de F-name en code ASCII; Le ler caractere 
doit etre le momnre total de caracteres du Frames, Le muffer est 
complete avec des O, âu retour le registre AL contient le msointeur 
sur ce nouvel atome. 


Four creer un nombres il faut mettre sa valeur dans le registre AJ 
miis arreller la routine $CRANUM rour creer un nombre entier ou pier 
la routine IiCRAFLT sout un nombre Plottsnt.: ou retour le regigtre AL 


contient le msointeur sun ce MOLVBALI MONTE A 


Four creer une chaines il faut mettre la liste contenant tous les 
caracteres (sous forme sbLomiacue? dans Le resistra AL suis srreller la 
routine de EE $£CRASTR au moan d'un (PUSH. F  ICRASTK) + Ru 
retour le registre AL contient le roinmteur sur cette nouvelle chaine. 


Dn peut creen un doublet de liste directement. Il faut mremsaerer ur 
, registre auelconaue (AL A2 AS ou AY) avez en martio gauche le CAR du 
doublet et en partie droite son CHR suis tester si ls liste libre des 
doublets Geoirteo sar le registre FREE) m'est ras vide (suauel cas il 
٠ Tout arreller le "Gsasrhese-Collectins") et enfin stocker le doublet et 


+ 


actualiser FREE, Ces oreraltions reuvent s'ecrire i 
ZS sresarabiorm du registre ol 
(CJUMEN FREE (x 22) a ci FREE est vides 
CFUSHJ F ru $ scroller le G.C. 
CEXCH AL MEM FREE) 3 crestion du doublet 
(ESCH FREE AL) s Gctusiisation de FREE 
$ le roinlteur obtenu se Crouve dans ol 


7.5 Format externe d'une instruction 
Chacue instruction est rerresentes eer une liste de la forme i 
( SOOO Xresistres پا‎ dagr index ) 


ACODER - est le mnemonique de l'instruction (tous Les mnemoniaues 
PEPLO sont disrominless 

“registres - est le numero ou le sumbole du registre ler orersnde, 

D - si cet stone est present (as cette rositionm)s le hit d'indirection 
de l'instruction sers rositionne: 


4 
adr - res rasenbe la valeur du chame  adresese aui sers charge dans 
les 18 hits de poids faibles de l'instruction (la descrirtion de ce 
. chams suit). 


D 
EA 


indent - est le numero ou le zsumbhole du resiste d'index: Ce dernier 
chamr est otionnel. 
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7.5 le LAF Format externe d'une instruction 34 


le chame adriz peut avoir la rerresentation suivante 


- an nombre (utilise dens les intructions  rossedart 
immediates? e 
ہ‎ Up atome littersl aui reub etre ¢ 
- Un Symbole de resistre 
- une etiquette 


* 
+ 


des valeurs 


- un  sumpole srecisl. LAP cormait en effet certaines adresses 


utiles de l'intersreto. Elles sont resresentees sar 
dont le ler caractere est toudours un "$^, 
— une liste rerresentsmt i 


sembole‏ اتا 


— ( nombre ) une adresse relative su debout de chargement: 


— CK nombre) une adres 
- (QUOTE objet lise) ou ^ objet lise s une Groe 


se relative su cometeur d'/sssemolsuc 


سوا رد 


de l'objet 


lise srecific. Cette adresse est oen realite l'index de cet onJet 


rer rarrort su debut de la zone des objebts Liga, 


ou Ch cuadro "I cadro ) is somme des different 


srecifiees. 

ex d'instruction > 
(MOUET AL 2) 
{MOLE AL GE TAR 45) 
pa A4 PBLIST) 

۰ (JEST Ô CK -5)) 
(CAIE 4 LAMBAD 
CHKEZ AG CH IMEM "Si 


. ye ven n Gan مم حم‎ poe poo 
(215 Serio 


de Sarre 


amet lis 


valeur est 


4 
7.6 Los rseudos-imstructions 
Lob connait un certain nombre de sseudos-instructions dont la 
forme externe est identique s celle des instruction normales, 
(EXP روح سسجت‎ 
reserve un mot oui est initisliso avec la valeur 
ex $ (EXP —1) 
(SUD Ears xadro? 
reserve un mot dont les 2 demis-mots sont  initislises avec 
les valeurs des oserandes fournis. 
ex $ CMD —1 CR MEM (X 322) 
(QUOTE omdet lise ou Dien ^ onet lise? 
reserve un mot  contensent up  sointeur sur l^ 
Srecifis. 
(VALAF sumaole valeur? 
. permet de definir de nouveaux asmboles dont la 
donnee exmlicitemernt. 
ex ¢ CUALAF اتال ث‎ 3 ۳ 116) 


(OPCI sumhole valeur) 
rormot de definir Ge nouwvesuux  menoriGQUGES FOUT 
instructions. 
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les codes 


74.6 le Lob Les rsaudos-inéstructiorns 35 


ex i (0PCU FJRST N2349 


C ENTRY non ture momare) 

mermet de definir le point d'entree d'une fonction aui 
devient une fonction standard de  ULISI. Lè nom de la 
fonction doit etre un atome littersl» lo ture de cette 
fonction reut etre SUBRE ou FSURR. Si le ture est  SUBR on 
peut grecifier son nomere cdd'srsuments (si cette fonction 
possede un nombre d'/srsuments lus prebit ou egal s ورک‎ 

ex 3 (ENTRY FACT SUBER L) 


7 


(END? 
indique la fin d'un assemblage (un Zeme reub موہ‎ denas ls 
liste des instructions fournie su La"). Cette soudo est 
sutomstiauement generee en fin de liste جس ہہ‎ ÿ 
elle m'est donc sss onlisstoirse. 


72:7 Les macros-Lmar 


Il est rossitle de definir des macros emn utilisant la rseudo 
, guivarte i 


(MACL.AF riot liste d'/srsumernt corres de la fonction? 


Li 
cette mseudo-insiruction sermet de definir les MACLAF ES, A 
L'apparition d'une intruction de lB forme (nom arsi + 
aru) dens Laquelle notnm eot le riom d'une  MACLAF v la 
fonction srecifiee est arrellee svec aragi ese argh comme 
` arsumerils. C'est ls valeur ramenee rar cette حرسرت‎ [1 [٠٢ ...اچ‎ ۳ 
aui est sssemolec (si cette valeur est differente de NIL). 
exemple de definition de MACLAF i 
CMACLAF THER (ATOM) 
QA 1 E^ MEM [QUOTE ATOMIII 
“CEFUSHJ F anni» 
L'HiRLM L EF “MEM [RUOTE àTOM31315 
L'arrel de CINCE X9) 
Gora ecxroanaeo en CML beZ 1 it "MEN KI? 
(UH. F ARIE) 
{HELM di <+ "MEN "Zi" 
Les MACLAPS sont tres muizsssentes car elles donnent actes 3 
l'intersrete lui-meme,. 
4 
Il existe un certain nombre de  MACLAF  predefinies aui 
« nOossedent les definitions suivantes f 


Lob (Hot Lob CAR (ŒQ 5) LL'HLRZ D MEM SID 
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74.47 le Les 


LA 


CLR CMACLAF CDR (0 S) EL'HRRZ D ۶ 74ء‎ 


CMACLAF JELIST (K oi 
LE 'GAMGE R 
C 'JRST Ô 


JFL IST 
"7 BL 1 


ATI) 


STI 


JNLIST CMACLAF JNLIST (R AJ 
EE CAML K 


L'JRST 0 


“THLISTJ 
AJ) 
CONS CMACLAF CONS (OR) 

ÇL *CJUMPFN FREE (Kk 22) 
'(PUSHJ F GARDEL O 
LERCH R "inhM “FREE 

EXCH (FREE RII? 


\ UNCONS (MACLAF UNCONS +R CAR 
(IF (NEO R CLR 
LE^HRIZ CHR < $ MEM 


RI 
L'HLRZ CAR ‘MEM RI 
RI 
RI 


CR 


LE"HLRZ CAR 7 2 MEM 
L'HRRZ CLR "2 MEN 


Arrel des fonctions 
l'intermrrete sont 
lancement de ج1‎ 
fonctions doivent donc se terminer sat ur 
des fonctions sont transmis dns 
fonction Ou ture de ls fTonction. 
effectuee sutomsticauemerts avant Laro l 
fonctions interrsrete EMAL ou  m"PFLY. 
fonctions ss valeur est  toudours 
Cil faut donc aue ce resistre soit 
Fonction), Les fonctions de Lure 
leur argument evalue dans le 
arguments recoivent leurs 
Al (sour le ler? et 52 (sour le 
recoivent leurs srsments evalues 
ler) Az Cour lo Seme) ek oi 
auelconaue d'srsuments  recoivernt une liste 
arsumernts evades dans le registre mi» Les 
FSUBE=  recoivent ls liste des arguments 
registre nl. 


Fonctions che 


Fysadresse de 


Toutes les 
duri PUSH fonction. 
differents 
Cette 
cies 
Rule lL RIE 
retourneoe dans le 
charge avant Le 
SUERS a d 
registre 


anrsumcrtu 


soit le 


iml» les 


avelues dens 
Jemes les SURRS s 
dans les registres 


(Cour le Zeme); les 
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arrellees 


FOFJ P.' Les 


Les 


SURF: 
contenant 
fonctions de 


MOMNvTevalies 


mac ros-LAF 36 


311) 


EI 17623 ٢ 
Toutes les 
arsumer bis 


resistres cn 
transmission 
Fonctions 9 


eut 
les 
ture 


man 


turo 


registre Al 
retour de la 
arsumert 


recoiwvsent 
SUBER a 2 
registres 
anrsumertg 
(OUT le 

a momore 
tous Les 
luna 


cars Le 


7,7 le LAF Les Fonctions standards du Lob 37 


7,9 Les Fonctions staonderds du Lob 
Les deux fonctions du Lob sont de tuse AUTOLOAL et se trouvent 
sur un fichier de mom LOULAF, 
(LAF l sui sur) ISUBE a 3 arsument.s.l 
est la rrincirale fonction du Lob, Le rremier  arsument 1 
doit etre urne liste dA’ instructions LAR? lo deuxieme 
argument est oun indicsteur oul veut T si vous desirez tune 
trace de ses cositstions» le troisieme est l'indicateur oui 
sera transmis eu Chargeur en cas de hesoirs 
LAFF file swi zwei CUP s 3 arsumernts. 
cette fTonction travaille d'une maniere identiaue a la 
fonction LOR v toutefois ls liste des instructions LOAF se 
Lrouve dans un fichier dont la  ssecificetion est donne 
comme rmremicer srzumerts LAFF est utilise lorsoue la liste 
des instructions s fournir sau Lob est tres grande, Ce 
fichier ne doit contenir eue des instructions LARS 
(LAFENI) CSUER s Ò srzument: 
permet de recurerer la plece occuree rar les fonctions Ou 
LAP; ainsi eue les indicateurs places sur certains atomes 
sat le Lob, Si certains atomes contiennevnutt toudours des 
references non  resolues (ces  stomes swossedent sur leur 
P-liste l'/irndiceteur XUIS)» un svertissemnet est donne sous 
la forme 3i 
Ké undefined sumbpol Z le nom de le fonction toujours 
inconnue. 
7.10 Enxemrles d'/utilisstion du Lob 
p definition de la fonction ONET ÿ 
ÿ eauivslent LIS" i y 
b (HE QNEF (X) CER X 12? $ 
? (LAP. CCENTYRY ONE SUBE 15» (CAE AL "150 {TOZA AL AL) 
T (MOVET AL "Ti {FOF P325 <)? T? 
à 51742 CENTRY ONEP SUBE 12 
51742 302 1 O 0 13651 (CAIE Al ^1) 
51743 $34 1 DO 1 i TZA AL AL) 
l 51744 201 1 DD 6 CHOVEI AL “T) 
51745 63 17 Gi © FOF. P) 


پر سد ہی 
31746 
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. 7.10 le LAP Exemrles d'utilisation du LAF 38 


(51742 ONEF SUBR 1) 
(ENI) 
= LAF 


^ 


$ time = 220 ms 9 


sé 
ti 


`. 
UV 


CTYFEFN 'ONEP) 
SUBR 


$ time = © ms » 


ü H 


CONEF L) 
T 


ii H ٹہ‎ 


$ time = Ô mas 3 
? (OMEP 0) 
=# NIL 
uz $ Lime = Ô ms $? 


PO CÜUNEFP) 
= NIL 


zoo» dime = Ô ms 5 
$ definition des fonctions ï b 
d $ (nE.cónnum (X) (CAR ccnnng x22) $ 
$ CHE cnnnum (X) (CER CCDDDbR x22) ü 


. ? (Lob ^CCOENTRY. CAUER SUBR 15 (OSNIPA AL MEM AL) 
T (ENTRY CAUTAR SUBR 15 CHLEZ AL MEM A1? 
T CJRST Ô CABDR2) NIL T3 | 


917446 (ENTRY CANDOR SUBR 1? 
7۹4۹ات‎ 334 1 O 1 2154 CSRIPA AL MEM AL) 
31747 (ENTRY CADAR SUBR L) 
91747 3554 1 O1 2154 CHLEZ AL MEM AL) 
317509 2540 0 0 405346 CJEST © CAR) 

41751 


(51746 CAIR SUBR L) 
(31747 CADDAK SUER L) 


L ob 
5 Lime = 200 ms 5» 


"e 
HodH 


? (BETOR L ))۵ BR C Io E F G Hi 
= (ro BR C Eo E F تا‎ Hi 


an $ Lime = 0ms 2 


?  (CADDAR L) 
= Û 


$ Lime = Ô ms $ 


T (CANCER L9 
zu G 
zz $ time = Ô mz 


KI) 
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7.10 


A 
7 
^ 
7 
^ 
۶ 
^ 
¥ 
^ 
7 
A 
۶ 
7 
T 
? 
T 
* 
P 
EI 
y 
^ 
y 
* 
^ 
7 
A 
7 
^ 
y 
+ 
^ 
N 
^ 
H 
^ 
y 
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le LAF 


redefinition de 


(DE REV (Li L2) 
(WHILE (LISTE 


(SETR L2 
(SETQ L1 
L2) 

(Lob ” CCX 
RE CHILL. 2 
CUR ا‎ 12 
(MOVET 1 Ô 


CX 

RE 
C NL L 
(CONS 
L CUR 


- 
i 


LA H+ O O CH 


Ca fre 


(MOVE 


317231 = 51751 
31751 500 2 O01 
51752 326 li 
51753 260 17 00 
31754 250 2 0 1 
347595 30 li 
91756 550 1 Ô 1 
31737 | 
3417597 1 
پت‎ 234 0 U 
31761 1 
1 


2 SES 6.2 


31763 


GE © © 


31757 REV SUEK 2 


LAF 


$ time = 460 ms 7 
(REV. “(A iB Œ) U 
(n ik Œ) AF G H) 
$ Lime = Ô ms s 


definition de 1l 
se definir 
CHE FINI 
(ESCAPE EX 


LA ٹا‎ 
IT 


CHE FINI (L) 
(IF (ATOM L) 


(CONS 
GUR L 122) 


" REVERSE 


ls fo 


LI) 
(CAR 


tros 


MEM 1) 


Li) 


Eremrles 


notion REVERSE 


(ENTRY REV 
23 (POPJ POS. T Ti 


(Xx "REVERSE 


a 
E 


1 


T 
de 


) 


4 


43 


en WL TSF 


MEM 1 


2) 


1) 


RE) 
102) 


(POPJ F) 


2154 
54.754 
4003652 


1260 
91751 


EJ. ۳۴ 


) 


tres 


(ENTRY REV 87 
(JFLIST 1 


G 


fonction 


Oe 


(FIND 
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L 


L 


Zi 


*, 


H 


1.23) 


standards") 
(CONS 


3) 


87 


2.) 


L JL Ce 1 


X 


standard.» 


2) 


(ALAF RE (Q)) 

(Xx "REVERSE tres 
CHLL X MEM 12 
(JUMFN FREE CK 2) 
(PUSH) FoZGARBEL 3 
(EXCH 2 
(EXCH FREE 2) 
CHRRZ 1 MEM L) 
(ENTRY REV SUBR 2 
(CAMI. i I BLIST) 
CJRST 0 KE) 
CMOVEI 1 Ô 2) 
(FOF.) F2 


CEN 
H5) 


FINI aui 
187 i may 


pourrait 
su darle 


3) 


abarreja rd 


Ca‏ ری SB‏ یہ ریہ 


) 


MEM FREE) 


) 


MK ër WB "ën "B € v 


g'utilisstion du LAF 


دوہ 


RE 


standard." 


Sr “Sr 


EK 


d 


7410 le L 


“Gr GR "C> 


(LAF 


> g m 


A 


M 


D 


1763 
51/63 
317553 
31763 
31763 
517453 
31744 
21765 
317646 
31757 
31770 
31771 
31772 
31773 
51.774 
31775 
31774 
341777 
32000 
32001 
32002 
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AF 


(IF {EQ A L) 
CFINUL (CAR L) 
(FINAL (CHE L25)) 


^COR). ٭)‎ "(FIND 
(MOMEM F SAVE) 
RE (UNCONS 2 2 
FIND2 (JFLIST 2 
(FOPJ P) SAVEF 


3) 
RE 7 


CR) 
CK 
(CH) 
CEMTRY 
(MOVEM F 
CFUSHJ F 
(SETZ 12 
(POP. P 
RE 

(UNCONS 2 2 
(PUSH F رق‎ 

(FUSHJ F 

(POP F 2) 


3) 


FIND 
GJELIST 2 KE) 
(CAIN 1 O 2) 
(MOVE FP Gott: 
(FOF Fò 

SAVEF 
(EXP Q) 

= 52001 

= 01774 

= 91747 


202 17 00 353001 
S60 17 00 41774 
400 Qo Q 


dod 17 0 0 9 


2154 
02 2154 
700 3 


51774 
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(EXIT oi) 


A LIA) 
(FUSHJ F 

(PUSH F 
(CAIN 1 0 
(EXP 022 


FIND A L2") 
FINA SUBE 


SAVEF) 


FIND2) 


FIND) 


Exemsles d'utilisation du Lob 


"EB SR 


Sè 


G) (ENTRY FIND SUBR 
FIND2) (SETZ 1) (FOFJ F) 
3) LFUSHJ P FIND2) (POP 
2) (MOVE P SAUEP) 


3) 


T T) 


E 
2) 


CALAF 
(CUAL ob 
( VAL ob 
CR) 
OK 
OK) 
(ENTRY FINI SUBRE 2) 
CHOVEM F SAVER?) 
FUSS F FINDS? 

L Sz T Z 


1? 
FOF F) 
3 


SAVEF (lé}) 
FINI (i115) 
RE C422 


"(FINE A L)") 


: MEM 
z MEM 

3 ) 
FIND) 


a) 


3) 


CHREZ J 
CHLEZ < 
(PUSH F 
(FUSH.J F 
(Pom P 2) 

(CAML 2 BLIST?) 
CJRST O RED 
(CAIN 1 O 2) 
(MOVE F SAUEP) 
(FOF F?) 

(EXP 0) 


40 


F 2) 


7.10 le LAF Exemrles d'utilisation du LAF 41 


(51753 FINE SUBR 2) 
(ENT) 

= LAF 
= P Lime = 460 ms $ 
P (FINU '&à (A) 
= fà 
= 3 Limo = Ô ms 5? 
? (FING ‘À "Di 
= NIL 
zm $ô time = Ô ms $ 
"T (FINE ہے‎ "(B (C OU À + 2222225 
= f 
= 53 Lime = O ms $ 
P (FINO “A ‘CH (C n E» Ei) 
= NIL 
= jF bime = Ô ms s 
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* B, Le Comrilateur ` Le Commilsteur 


SECTION 8 


LE COMFILATEUR 


VLISE-10 possede maintenant un  commilsteunr. Il est sans 


peut etre utilise rar tous. Ce commilsteur seul traduire mi 


auelle fonction definie de ture EXER ou FEXFE en 


Uri 


d'instructions aui sera transmise su LAF. Il n'utilise 


declarsions srecisles eb SLRFEOQSG aue les Fonctions aue 


VOLU SG 


432 


danger et 


meorte 
suite 
mas de 
VOULEZ 


compiler sont  -correctes- + Les fonctions  sinsi  compilees sant 


executees entre 3 et 10 fois wlus raeridements et occure 
lace (avec un gain variant entre 20 ct 200 A). Ce 
garanti l'identite de resultat avec ls forme inmtereretee 
d'sutomodificstion de fonction ou en cas de redefinition 


fonctions Standarde, 


3.1 Les macros du commeilsteur 


d Le comrilsteur utilise un certains nombre de nac rom LO v 
LAF aui facilite son ecriture et font sssner de la 
generation du code, 


(GETVAL registre stoma) 


comei 
Sauf 
dunami 


moins de 


lsteur 
en CES 
Que de 


connues di 


placo 


charge dang le registre  srecifie la C-valeur de l'atome: 


macro est exrfansee en ¢ 


C HL RZ registre [4 MEM “atome.l) 


C(EUTYVAL resistre abome)? 


met dans la C-valeur de l'atome ssecifies la valeur 


Cette macro est enxrasmsee en $ 
CHRLM registre Lr SMEM “stome.l) 


(SETNIL atome) 


met NIL dame la C-vsleur de l'atome sfecifie. Cette mac 


a es - + 
GuFGlUSQO GM + 


(HRRZS O Lt MEM 'atomel? 


CCAR resi source? 
met le CAR de l'ob.det source dans le resistre redd. 
esti exraensee cn 3 

$i l'objet source est 

— un registre CHLRZ redd {MEM source) 


. - Up abone (HLRZ resch Et MEM “sbtome.l) 
cette forme est eauivslente su GETUAL. 


i (CIR resd source? 
met le CHR de l'ondet source daris le resistre redd. 
est exmansee en i 
si l'ondel source est 
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8 la 


Cette 


du registres 


Cette 


Cette 


ro est 


macro 


mat ro 


x e-k ace ہے مت‎ ni 


: 8.1 Le Comsilsteur Les macros diu 
- Up registre CHREZ red MEM registre) 


atome {HERZ redd Ek :MEM 'aome.l) 


3 


3.2 Foirts ‘entres smocistx 


moints 
d'entre 
GV d ciemmernt 


nombre de 
۳٣٣٣٣٢ l.s 
piden 


»ilateur utilise Gertain 
interserete, Les noms de 
PSP ak 


le ctere $ 


Le come 
dans l” 
mrefixses 


Des 


gwan Cars sont 


Z MEU.) 


est l'adresse d'une instruction FOF P 


TRUTH 


est l'adresse dos retours vrais des rregdgicats. E 
sux deux instructions 3: (MOVET d TO (POP J FÒL. 


des rredicatise 


(POPJ PF}, 


48. i 
| atus 


el 
T ) 


des retours 
sStructions : (SETZ 


l'adresse 
CLM iri 


tCRAZER 
` est 
i deux 


Q, 
F), 


nombre LISF Elle 


‘0 (POR 


crestion Ou 
(MOUET 1 


adresse de 
Chen کے‎ H 


$ CEADNE 
est l'adresse de 
deux instructions 3 


SF 1. 


Fò. 


montre LI Elle 


* 1) {FOF 


cju 
A 


crestiorn 
(MOUET 


est l'adresse de la fonction PLUS s deux sersumertsg 


da 


les registres $ 
fonction FLUS 


er resrectivemernt 
est utilise eusnd 
aue NSURBR., 


se trouv 
d'entrec 
en tant 


2474 85 


la 


+1) 
est l'eaui 


via 


lent de l'adresse PLUS» sout 


TIMES 


est l'ecuivslent de l'adresse PLUS; sour 


Z QUO 
est l'ecauiveslent de l'sdresse IPLUS; rour la 
A IMAFCI :MAFCN 
- ces deux moints cd entree sont 
MAFC sans passer mar APPLY 
. commilsteur connait le ture Ge 
elements successifs de la liste. 


soit des fonctions staendserds» soit 


utilises 
ils 


FOUT Œ 
peuvent etre 
۴ 3۳7۰ء1٦‎ 
Fonctions 
us Toncetions 


LL 11 
la a 


Ce 
de 


28 
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commilsteur 


d'entrees 


COPIES 


ee 
I: 
= 


at 
m'est 


NSURR 


NSURR 


08 


xecuter la 


SX 83 E (207 


i: KE JM 
toudouns 
de Lo. 


sont 


ile corresrord 


lle 


correspond 


coOrrnresmoncd ak 


GOT TG rO 


L 
3 4. 12 Ax 


Gui doiverrt 


24 Ce poirt 


utilisee 


aa en 
Wm 


UIFFIER. 


TIMES. 


Quo, 


fonction 
Guenad Le 
arpmliacuer aux 
meuvent ebre 


commilees de 


D ei (245 an 


ture FUNCTION. Si cette fonction est du twe ISUS 
d'entree utilise est FMAFC1 sinon le Coni Latour 
point cd'entreo IMAFCN. L'execution de ce ture de MAFC est 
fortement accelere rar cette raseikbilite. Ces deux point: 
d'entree attendent la liste dans le resistre l et le d 
fonction dans le resistre 2. 
; NSUEK 
ce point d'entree est utilise four lancer les. 
l'intermrrete ou nien les votres. Les NSURRS demandent 
arsuments», evslues» soient  rsssemoles dans une liste 
se trouver dans le registre 4, Ceci est fait automat 
ls rile est charsee de la maniere suivante 3 Il f 
d'abord un mot contenant dans se partie gauche la valeur  -1 et 
dans ez partie droite le nom de ls NSUBNR a 1 
arguments sont alors evalues un a un et leurs valeurs sont 
emrilees sauf le dernier aui reste dens le registre l 
SsOugs-rroszrsesmme 2NSURR est arrelle vis le registre L 
d'un JSF, 
exi mouroseneretbian de l’'exrressionm 
(TIMES 7 (STATUS 4 3 2) 8) 
A 


FUSH P 
(PUSH. F 
. (FUSH F 
(PUSH F 
(FUSH _ F 
C MOUK T 1 


مه 


amrile (XWD -1 TIMES) 5 
empile la valeur 7 5 
emrile (XWD -1 STATUS) $ 
emrile ls valeur 4 jï 
emmileo ls valeur 3 $ 
le dernier snrsument 
de STATUS 5s 
(JSF L $NSURBR) $ aol de STATUS $ 
(MQUET 1 ^3») ÿ le dernier arsumert 

de TIMES s 
JSF L 2NSUER) $ arrel de TIMES $ 
Table utilisee car le FnP-19 
ne possede mass l'instruction 


à 


PUSH immediat !! s 


N. 44 th FE V v 
Di RJ i> 
ene 


Ho dd 
È> 
^ 

wu» "ub P WB "eet wu» 


Il 


(XWE “1l TIMES) 
277 

(XN +1 STATUS) 
* A 


Z “y 
d 


meb مہ‎ Së 99 +O 
Add 


GKM 


Ce genre d'arrel est slutot lourd et entomiararte le 
essaie d'/eviter cols dans le CES des NY UH s 
frenueminert et aui n/ont GLU" LU ou deux BPMN ¢ 


E NU ۳ 
ce moint d'enbree est eauivalentb s :;NGUBE suivi d'un 
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8.2 Le Comrilateut Points d'entree sFeclaux 44 


Kole poirt 
utilise le 


ES 
a 


Nom de 


NSUSBRs de 
Que leurs 
Gui doit 
iauement si 
aut emeiler 


BICEP ¢ Les 


e Fuis le 


y BL] motor 


compilateur 


utilisees 


PORSI 


à S.3 Le Comrilgteur Les Fonctions standards du commilstour a 


S.3 Les Fonctions standards du comeilateur 


Toutes les fonctions standards aui vont ebre decrites sont de ture 
AÓUTOLOAID. Elles ze trouvent sur un fichier de nom COMF TL. 


(COMPILES 1) LEXPFR a l argument 


cre une liste contenant les instructions LAF necesssire s 
l'esecubion de ls S-exmression L. COMPILES ramene cette liste en 
valeur. Cette foncton est mrincisslement utilise rour tester le 


fonctionnement du consi la Leur. 


(COMPILE atome swi sw? s3) CFEXFKI 


est la fonction de commilstion en mode  conversstionnel.. Cette 
fonction comrile assemble et charge une fonction  auelconaue, La 
fonction s comeiler doit rosseder une definition de ture EXPR ou 
FEXFR, L'iindicateur sul est esai s T si vous voulez un listins 
du resultat de la commeilstions l'indicateur sw sere transmis su 
LAF et SAS au chargers 


C COME TL EK TLE filout filim) ISUER 8 2 etsumente. 


Cette fonction cree un fichier de sorties de srfecificastion 
filouts contenant la traduction sous forme d'arrel de ls 
fonction LAF; de toutes les definitions de fonctions contenues 
dens le fichier d'entrées de srecification filin. Le fichier 
ainsi ontenu pourra etre relu ran LISP; Les  S-oxmressions mon 
commilsbhles sont remises (au meme endroit) dans le fichier de 
sorties 


(COMPILEF file) [FEXPR] 


est utilise FOUT la comimilstion d'un ficnier  stasnadsrd. 
(COMEILEF file? est la forme apresee de (COMFILEFILE ‘SK (file 
> LAF?) USK (file + ULTIO). 


(COMFILENIO [EXPR 3 0 srsumernt 


recurrere Je place ocouree rar les Fonctions du commsilsteur. 

COMFILENI remet les indicateurs mUTOLGOAYs des — lonctions 

/ standerds de et ramene le nombre de gdounlets Liberes en valeur, 

i / Cette Fonction n'a res d'effet si vous utilisez le comrsilsteur 
comites 
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" 8.4 Le Comrilsteur Exomeles d'utilisation du comrilateur 
83.4 Exemples d'utilisation du Gomrilateur 


? (EE FACT (N) (IF (ZEROF N) 1 (TIMES N (FACT (SUBI N2)2)2)) 
FACT 
$ Lime = Ò ms $ 


? (TYPEFN “FACT) 
= EXPR 


= $ time = Ô ms? 
PO (FACT 3) 

= 6 

= P$ Lime = O ms s$ 


? (FACT 6) 
= 720 

e $ time = Ô mz 7 

?  (COMFILE FACT T T T) 


^ 


$ EACT mmm e eee anou moun oae sono saco some ten sun oem utot sen ome senn come mwen coce semt menn moun oere ten sees toen eee ane oce an vere sena vece toua don etn ten eem aeon ocan nen teen 
(DE FACT (N) (IF (ZEKOF N) 1 (TIMES N (FACT (SUBRI N222)) 


i FUNCTION LENGTH = 19 
KLAF LENGTH = 8 


< 


€ LAF "rt 


ENTRY FACT SUBR 1) 
{CAIN 1 "oi 
(JRST O :CKAONE) 
011 
(PUSH P ATL? $ {XWU -1 TIMES) 5 
(PUSH F 19 R 
CEUSHJ P SUBIO 
(FUSS F FACT 
CJRST O INSUGRE) 


À |‏ ساسا ساسا سا سال ساس 8 
XTEL LENGTH = li‏ 


Ad (XUI -1 TIMES) 
2 NIL NIL 7 


(ENTRY FACT SUER l) 

(CAIN 1 ^O) 

CAJRST O0 ICRAONE) 
G101 

(PUSH P ATI) 

(PUSH F 1) 


G4 LALA fw D O 
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è 8.4 Le 


P کی‎ C 2 


75362 = 
75362 = 
73362 

79362 3 


75363 29 


75364 2 
75365 2 
75366 2 


75367 à 


73370 23 


75371 


75372 
(75362 F 


=  COMPILE 
` = j time = 
?  (TYFEFN 
d = GUER 
= $ Lime = 
PO (FACT 3) 
= á 
= $ time = 
F^ (FACT 6) 
= 720 
zoo; lime = 
? (OE Ini 
zo I 
= j Lime = 


T (COMPILE 


I D 1 ds D ور‎ ee 


`> 


CHE Ini 


FUNCTION 
XLAP LEN 


KI 


K Lob" 


(E 


(F 


Comreilateut 


(FUSHA F 
("USHJ F 
(JRST Ï 


Exemsles dutiliszstion du compri labeur 


SUBI?) 
FACT) 
ANSUBRE) 


CMD “1 TIMES) 


06 1 O0 13660 
L 403222 (JRST Q 
ól 17 00 75371 


ól 17 00 1 


17 Ô 0 
60 17 00 7 
Q 9 


ACT SUBR l) 


Á540 mas PF 


'FACT) 


Q ms » 
Q ms s 
Ó ma ï 


(L) (IF 
Q ma 5 
TUL T NIL T 
(L) (IF 


LENGTH = 12 
GTH = 2 


407300 
3363 

9 410755 
s 407335 


sees venn SELE cepo soon $449 noue caso MWAN VOUA oosa coet enes ceca sra osot rage coot 0000 


(75) 
(232) 


(VALAF aTi 
(Ho ob GIOT 


(ENTRY FACT SUEK 


(CAIN 1 ^0) 

Z CRAONE ( 
PUSH F ATI? 
(PUSH F 1) 
(FUSH.) F SUELO 
CEUSHJ F FACT) 
(CJRST O INSUGRF) 
CND -1 TIMES? 


(ENI) 


(NULL. L? NIL L33 


) 


(NULL L? NIL L2) 


NTRY Ini SURE L) 


GP P3 
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aese میم‎ move vers ence ver 


47 


8.4 Le Comrilsteur 


) NIL NIL 7 


263 17 00 OQ 


(75372 ID] SUEK l) 


= COMPILE 

= f Lime = 200 ms PF 

PO (0E KWOTE (L) (IFE {LISTE 
= KWOTE 

iz # time = O mz ÿ 

PO CCOMFILE KWOTE Y NIL T»? 


^ 


(DE KWOTE (L) (IF (LISTE 


FUNCTION LENGTH = 15 
Rx XLAP LENGTH = ó 


( Lob << 


N N 998 N 

(ENTRY KWOTE SUBE 153 
(CAMIL. 1 òBLIST) 
(FOFJ P) 

G101 
(PUSH. F NCOCONG) 
(MONET 2 'QUOTE) 
(JST O XCONS) 

.32 NIL NIL ( 

75413 = 73415 

75413 

75413 311 ا‎ OO 1269 

75414 263 17 00 OQ 

75415 260 17 0 O 3405202 

22 9 0 2 الات 75416 

75417 254 0 0 0 406174 

75420 

(75413 KWOTE SLUIER l) 

= COMPILE 
zo $ Lime = 280 ms $ 


a 
"A 


CKWDTE * à) 


= ‘À 
= 3 Lime = O ms » 


Exemples d'utilisation du commsilsteur 48 


(ENTRY IEL SUBE 1) 
CcFORJ P3 


CEND 


L. LGUOTE LIY) 


. arpe سر‎ 
e 
5 KWO T IE mt tee ae an mun anne ane saw e mun moun ane ane voe aren an an mun sere same ane n don aoee ao aa son asa te wen wan sn koun dwan ane caso sov sore seno ae e on ne n kaw n semt mwn de son 


L [QUOTE LA» 


(VALAF Glol (22) 
(ENTRY RUOTE SUBR l) 
(CAML 1 :ELIST) 
(POPJ F) 

CEUSHJ F NCONS) 
(MOVETI 2 QUOTE) 
CJRST O XCONS) | 


(END 
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8.4 Le Comrmilasteur Exam les d'/utilisstion du comrilateur 49 


(KWOTE 77A) 
“A 
7 bime = Ô ms $ 


(DE RECH (L) (IF (LISTE L? CIF (NUMBF (CAR L)2 QUOTE OC(REUNIND 
CIF (OR (STRINGF L) (MEMQ L “(NIL T QUOTE LAMEDA SUBR J9 NIL 
(FRINT L "Co to Jest TP" (FOND "Tix (CASSO L X222» 

RECH 

S Lime = O ms $ 


(COMPILE RECH T €) T2 


^ 


ا 
مو sn ons Jens DANS ace‏ مم Lou Aid ka Ode lak sen 0868: Lou‏ فا و مہرد epe An‏ سم سو مر سو NON AUN‏ مد ا ماد سس کی کچھ اھ cale NO LEO RIO‏ سس Veil‏ ہام کرام a AI a‏ شا کہ لم R E r H (aka‏ $ 
eg ag‏ 


(DE RECH (L) 
(IF (LIST Li 
(IF (NUMEF (CAR L)? QUOTE *K#UNID 
(IF (OK (STRINGF L? (MEMQ L “(NIL T QUOTE LAMEUA SUBER)? 
NIL 
C(FRINT L “Co to Jest T" (FOOD “T)3) 
{CABER L XII)I 


. FUNCTION LENGTH = 33 


KLAF LENGTH = 34 
3 


) LAF ‘€ 


(ENTRY. RECH SUBER) 

JSF L ٤810 ( 

(AND o CL) 

(GETUAL 1 L) 

(CAMGE 1 $BLIST) 

CJRST Ô G101) 

(CAR 1 1) 

(CAMIL. 1 sENUME) 

(CAMIL. ا‎ ?mBSTRGOD 

(JHST O G103) 

(SKIFA 1 XT1) $ 'QUOTE $ 

6193 ۱ 
MONET 1 "ként: 
CPOPJ F) 

3101 
(CAML. 1 SESTRG) 
(CAMI. 1 $BLIST 
(OSRIPFA) 
L JRST 
CATIE 
(CATIN 
( JRST 
CATE 


C3 


«FALSE 
“NILO 
"T2 

e FALSE) 
* QUOTE 
(CAIN LAMBER?) 
( JRST FALSE» 
(CAIN 1 'SUBRÓ 


E 
LA 
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vi 


8.4 Le 


(JRST Q 
G105 

FUSH F 

(PUSH F 1) 

(FUSH F 

(MOUEI 1 

("USHJ F 


Comrilsteur 


FALSE) 
AT2) ÿ 
ATA) A ÿ 


“(FOQ 
EVAL) 


"Er? 


(JSF ا‎ INSUBR) 


(GETUAL. 1 
(GETUAL 2 
(JRST Ô 


got * T D 


XTRL LENGTH = 3s 


“QUOTE 
(XWD — 


ATi 
aTa 


AT3 
A NIL 


7595362 
75363 
75362 


= 79425 
75362 = 


75424 
75423 
75412 
7537ó 


75374 


75362 
75362 
75362 
75362 
753643 
75364 4 
75363 3135 


Lai 
D 


a ہر‎ 
[ao 


سڈ 


DO OO بی ي ىہ ىي‎ OOO OOO COOC OO KA 0 


75366 2254 Q 
79367 4ن‎ Q 
79370 ZLI Q 
75371 311 Q 
75372 254 L 


LA 
لئ‎ 
x 
4 
co 


Za Gi RO ONG L à 


i 
ki 
^ 
^ 
M 


œ 
L- 
fT 
KI 
L 
si 
en, 
e d 


< یہ نیہ یدید 


Ca cq گی‎ LA LA CA CA CA CA LA LA LA کی‎ LA LA G 
i 4 د‎ d de d» d d». £M EN LI 


1 
E 

t 7 
ii 


GS Q0 ى‎ Q OQ NNN 


KA © 
KA یہ ری‎ Dr 
d H3 
t O LH O O 


P 


KA KA C KA CR KA kä CO KA KA QD لے‎ KA KA KA KA KA جح‎ feh pen KA CO $4 شم‎ OR 


ل“ یہ یہد یہ یہد یہ نیہ SE‏ یہ POS‏ 


i jwa 
ai bN Ro 
LA BJ L> 


E 
Ci 
^J FS i 
Lr. 


L 
d 


X 
^ 


1 


Q 


CH 


) 


CASSO) 


FRINT) 


* "Co Lo Jest T" 


4119001 
26130 
15079 
1360 
23/6 
2154 
1254 
1257 
75.374 
258425 
10354 
Q 

1257 
1260 

Q 
403237 
Q 

6 
303237 


amen 
AT de 


35 
403237 
102 
403237 
75424 
1. 


Exemrles 


(XWD ~1 


" "Co Lo 


(VALAF 
(VALAF 

(VALAF 

LALAR 
(VALAF 
(VALAF 
CENTRY 
اال)‎ L 
(XWI o 

(HLRZ 1 
(CAMGE 
(JRST OQ 
C HL Z 

{CAML 1 
(CAMIL. 1 
(JRST © 


eost ^ 


Za TAS 
fe T 2 
AT) 
G1053 
G101 
GLOS 
RECH 


d'utilisstion du compilateur 


FRINT) $ 


Sr 


(A32) 
(322) 
(4125 
(30)) 
(142) 
(1235) 
SURR) 
$SBIND 
"£132 


(+ "REN (L) 


1 :EBLIST) 


G101) 

èMEM 1) 
+ RNUMEB) 
؛‎ 880 7 


(SKIFA 1 ATIJ 


(MOVETI 1 


(FOR) F 
(CAMI. 1 
(CAMI. 1 
(SKIFA) 
C JRST Ï 
L Cn LE 1 
(GAIN 1 
CJRST Ô 
CCAIE 1 
(CAIN 1 
CJRST Q 
{CAIN 1 
CJRST Oo 
(PUSH F 
(PUSH. F 
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ORKUNTI 7 
7 


FALSE)? 
“NIL 
"T3. 
FALSE) 
^ QUOTE 3 
LAMBA?) 
FALSE) 
* SUBR) 
FALSE) 
dala) 


1) 


Su 


; 8.4 


23414 
75415 
75416 
75417 
75420 
75421 
754232 
75423 
75424 
754235 


75426 


Le Comrilateur 


O OOO OOO 


(75362 RECH SUBR) 


H i 


COMFILE 
$ Lime = 2460 ms nu 


Exemples 


75423 
260327 
403542 
41073835 
15070 
15426 
403746 


^ Y 


403101 


22027 


(PUSH P ZT32 

(MOVETI L "EDU ‘T)) 
CFUSHJ P EVAL? 

{JSF L 2NSURRD 

CHL RZ 1 (t "REN “Lò 
(RZ 2 CA MEM 7X9) 
(JRST o CASSA) 
“QUOTE 

{XWU -1 PRINT) 

" "Co to Jost T" 


) 
) 


(END) 


http://www.artinfo-musinfo.org Notes sur le VLISP 10.2, mai 1977, page 54 / 56 = 


d'utilisetion du compilateur 


INTEX 


) 2 
x 1 
EE: 5 

XX arras error LO 
xXx E.Q.F. 25 
XX E.O0.F,. durins 
XX mo room for srraus. 4 
Ak no room for abomse 4 
XR no room for code, 4 
XX no room for lists. 4 
XXX no room Tor MME ۴۰ 

KX mo room for strinus. 

XX mon numerico arg 13 

XXX mot enough core. ei 

XX READ error. 25 

XX undefined function 12 
XX undefined sumbol 37 
RUNS 37 

t 15 


++ LH CA 


## 13 

AN 16 

LT 14 

Jee 14 

H 34» 43 

I HL LST 32 
+ RNUME 32 
a RSTRG 32 
+ CRAFLT 33 
$ CRANUM 33 
#CEAONE 43 
+ CRASTR 33 
+ CRAZER 43 
z DLEE 5 43 
FALSE 43 
z GARBCL 33 
è+MAFCI 43 
+MAFCN 43 
L MEM KR 
+NSUER 44 
aNSUBRF 44 
z FLUS 43 
+FNAME 33 
+ QUO 43 

+ TIMES 43 
z TRUTH 43 
è TEYATOM 3.3 
+ VFOFJ 43 


READ. A 


H 


9 
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INDEX 


AuTaLoaar 12 
bit O du 
bit 5 du R.G. 4 
pit 7 du R.G, LO 
00۳7 20 


R.D, 2 


CAR 35» 42 
caracteres minuscules 25 
caracteres numeriques 25 


CDR Zó» 42 
Cnailloux 1. 
CNTH 7 

COMMENT 20 
COMP IL 45 
comrilzsteur AS 
COMPILE 4S 
COMFILEF 4S5 
COMPILEFILI 455 
COMPILIENTI 453 
COMFILES 4585 
CONFIG, INT 2v 5 
CONFIGURATION 2# Œ 
CONS A 

COPY 2 

COS 1. ó 

na 9 

CONS 20 

DDT 20 

DELETE 20 

DEL O 20 

MIM 10 
DIRECTORY 27 
Di 8 

ENTI AS 

ENTRY A9 

EOF 25 

ETY 27» 30 
EVAL 7 

EA 17» 34 
fichier initial dr W 
FILLARRAY id 
FIX la. 

FLOAT 14 
FORTRAN 13 


FRIEUERSIE 21 

FUNCTION 2i 
Garbdase-Collect ins 4 
GET 23 


DE TL 23 
GETYAL 42 
Goossens 1 
Greussau Ls 7 
Harvew Í 
HIGHSEG 2 

IFN 21 


(re! 
vd A 


INUMRF 214 
JNL IST 36 
JP LIST 36 
LAF 31» 37 
LAFENTI 37 
LAFF 37 
LAST 19 
LIBRARY lcs 27 
LIST 25 
LISTARRAY Ll 
LOULAF 37 
LOG 17 
LOG10 . 17 
MACL ob 33 
MACRO 7 
MAFARRAY Sy 10 
MAFARKAYO 1. 1. 
MCONS 24 
MO DUL O 16 
NCONS 3i 
NIL 32 
OBL IST 19» 25 
n QFC 34 
F-liste 23 
F-namo 25 
t FATHL.TERAKY 27 
rile utilisateur 
FOF 24 
FEN 25895 27 
FRETTY SA 
FRETTY-PRINT 29 
FRETTYENT 30 
PRETTYE 30 
FRE TTYF ILE 29 
FRETTYE 29 
FRETTYSIZE 30 
٣۳1 29 
FRINT 26s 29 
FUSH 23 
FLIT 23 
FUTUAL 42 
QUOTE 26s 34 
RANUOM 18 
RIICORE 28 
REAL 25 
resisbre 31 
۲) MbbOb Ad 
rerertoire 24» 27 
REVERSE 19 
SAMEFN 22 
SETA 10 
i SETNIL 42 
SETRA 10 


SIN 16 
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INTE? 


SART lò 
SUBST 20 
tanlesu 9 
Ltail-recunrsivss 
TOFLEVEL 2 
TYFEFN 22 
TYPE 22 
TYFNUME 23 
UNCONS 36 
] ۳ 17 
VALAF 34 
ert T 
WRCQRE 283 


"d 


XCONS ` 22 
XWI — 34 

r 25 

\ 26 

25 


^ G.C«. ^ ture CONT rlesse, 
E 4 
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